Prolog：在 shell 提示符下显示帮助

Question

我是using a predicate，在 prolog 程序 shell 的连续提示中读取一些值，我希望用户在被要求输入时能够获得帮助消息。场景是：

1. 征求意见
2. 如果是input = 'help'，显示帮助信息并再次请求相同的输入
3. 如果input /= 'help'，分配Value，成功离开

到目前为止我做了什么：

ask_input( Question, Value ) :-
    write( Question ), % Please enter  ... :
    read( ReadValue ),
    ( ReadValue = 'help' ->
        write( 'Help message...' ),
        ask_input( Question, Value )
    ;   Value = ReadValue
    ).

显然，上面的代码不起作用。它将在条件内的ask_input 上失败。

Answer 1

我这样做了，它似乎有效：

ask_question( Question, Value ) :-
    write( Question ), nl,
    read( ReadValue ),
    ask_question2( Question, ReadValue, NewValue ),
    Value = NewValue.

ask_question2( Question, ReadValue, NewValue ) :-
    ReadValue = 'help',
    write( 'Help message ...' ), nl,
    ask_question( Question, NewValue ).

ask_question2( _, Value, Value ).