RosettaCodeData/Task/Loops-Do-while/DUP/loops-do-while-2.dup

3 lines
110 B
Plaintext

[1+$.' ,]⇒A
0 A[$6/%][A]# {PUSH 0, execute operator A, [DUP, PUSH 6, MOD/DIV, POP][execute operator A]#}