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

3 lines
55 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
make "n 1024
while [:n > 0] [print :n make "n :n / 2]