RosettaCodeData/Task/Loops-Do-while/Picat/loops-do-while-1.picat
2023-07-01 13:44:08 -04:00

6 lines
75 B
Text

go =>
N = 0,
do
N := N+1,
println(N)
while (N mod 6 != 0).