RosettaCodeData/Task/Loops-While/Factor/loops-while.factor

2 lines
43 B
Factor

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