. , , . , FOR, WHILE REPEAT.
, . , , , .
, , , . . , , do_answer() 2.3.
query , , fail , . , , , do_answer() , query .
, , , , , , . .
, , , :
repeat.
repeat:- repeat.
, repeat. , , repeat. , . ( repeat) ( repeat), , ( repeat) . , . repeat . , repeat , .
2.3 repeat. query. .
' , Ctrl+Break. , , , , . repeat, , , , do_answer, repeat fail. , repeat , repeat.
|
|
repeat do_answer, , , . , , stop , do_answer :
do_answer (X) :- X="stop", write ("good bye").
, , , repeat.
, , - , fail , .
, -, , .