RosettaCodeData/Task/Loops-Do-while/Factor/loops-do-while.factor

2 lines
59 B
Factor

0 [ dup 6 mod 0 = not ] [ [ . ] [ 1 + ] bi ] do while drop