RosettaCodeData/Task/Loops-Do-while/Picat/loops-do-while-2.picat

9 lines
100 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
go2 =>
do_while(0).
do_while(N) :-
N1 = N + 1,
println(N1),
N1 mod 6 != 0,
do_while(N1).