Да Нет в Прологе, если нет (да/нет), тогда отобразить неверную команду (ввод)

Question

Я создаю экспертную систему для ремонта сотовых телефонов.

Ответы должны быть только [да или нет], и все остальное отображает «недопустимый ввод». Как я могу поймать это в своем коде?

ask(Question) :- write('Question: '), 
     write(Question), 
     write('? '), 
     write('(yes or no) : '), 
     read(Response), 
     nl, 
     ((Response == yes ; Response == y) -> assert(yes(Question)) ; 
     (Response==no ; Response ==n) -> assert(no(Question)) ; 
     write('\nInvalid Input!!!\n'),fail). 

Я все еще не могу реализовать то, что я хочу отобразить, если введена неправильная орфография.

Answer 1

Ну ... Ваш код определенно работает. Просто не забудьте изменить assert с asserta или assertz, если вы используете gprolog.

| ?- [expert]. 
compiling *** for byte code... 
*** compiled, 7 lines read - 2111 bytes written, 14 ms 
(1 ms) yes 
| ?- ask(man). 
Question: man? (yes or no): y. 
yes 
| ?- ask(woman). 
Question: woman? (yes or no): no. 
(1 ms) yes 
| ?- ask(silly). 
Question: silly? (yes or no): dunno. 
Invalid Input!!! 
no 
| ?- yes(man). 
yes 
| ?- no(man). 
no 
| ?- yes(woman). 
no 
| ?- no(woman). 
(1 ms) yes