desc
Source: PROLOG str. 62 Wydawnictwo PLJ Warszawa 1991 ISBN 83-85190-63-5
Program source code: repeat.pl
ster :- repeat, nl, write('Podaj cel do realizacji: '), read(Cel), generow_rozw(Cel). generow_rozw(Cel) :- call(Cel), write('Znalezione rozwiazanie: '), write(Cel), nl, write('Czy generowac nastepne rozwiazanie (T/N):'), get(Odp), nl, (Odp = 78; Odp = 110). generow_rozw(_) :- write('Brak innych rozwiazan '), nl.