RosettaCodeData/Task/Loops-While/Factor/loops-while.factor
2023-07-01 13:44:08 -04:00

1 line
43 B
Factor

1024 [ dup 0 > ] [ dup . 2 /i ] while drop