RosettaCodeData/Task/Loops-Do-while/Maxima/loops-do-while.maxima

2 lines
74 B
Plaintext

block([n: 0], do (ldisp(n: n + 1), if mod(n, 6) = 0 then return('done)))$