====== Repeat ======
{{tag>misc}}
===== Description =====
desc

**Source**:  PROLOG str. 62 Wydawnictwo PLJ Warszawa 1991 ISBN 83-85190-63-5

===== Download =====
Program source code: {{repeat.pl}}


===== Listing =====
<code prolog>
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.</code>
===== Comments =====