RosettaCodeData/Task/Loops-While/Axe/loops-while.axe

6 lines
48 B
Plaintext

1024→A
While A>0
Disp A▶Dec,i
A/2→A
End