RosettaCodeData/Task/Loops-While/Phix/loops-while.phix

6 lines
82 B
Text
Raw Permalink Normal View History

2016-12-05 23:44:36 +01:00
integer i = 1024
while i!=0 do
?i
i = floor(i/2) -- (see note)
end while