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

1 line
59 B
Factor

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