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

7 lines
68 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
go =>
N = 1024,
while (N > 0)
println(N),
N := N // 2
end.