RosettaCodeData/Task/Loops-While/Factor/loops-while.factor
Ingy döt Net db842d013d A-M baby
2013-04-10 21:29:02 -07:00

1 line
43 B
Factor

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