RosettaCodeData/Task/Loops-While/Picat/loops-while-2.picat

8 lines
102 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
go2 =>
while_loop(1024).
while_loop(0) => true.
while_loop(N) =>
println(N),
while_loop(N//2).