5 lines
76 B
Prolog
5 lines
76 B
Prolog
while(0) :- !.
|
|
while(X) :-
|
|
writeln(X),
|
|
X1 is X // 2,
|
|
while(X1).
|