RosettaCodeData/Task/Loops-While/Logo/loops-while.logo

3 lines
55 B
Text
Raw Permalink Normal View History

2013-04-10 21:29:02 -07:00
make "n 1024
while [:n > 0] [print :n make "n :n / 2]