RosettaCodeData/Task/Loops-While/J/loops-while-3.j

8 lines
82 B
Plaintext

monad define 1024
while. 0 < y do.
echo y
y =. <. -: y
end.
i.0 0
)