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

7 lines
75 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
go =>
N = 0,
do
N := N+1,
println(N)
while (N mod 6 != 0).