RosettaCodeData/Task/Loops-While/Min/loops-while.min

2 lines
40 B
Plaintext

1024 :n (n 0 >) (n puts 2 div @n) while