RosettaCodeData/Task/Loops-Do-while/Scheme/loops-do-while.scm
2024-10-16 18:07:41 -07:00

4 lines
86 B
Scheme

(let loop ((i 1))
(display i)
(if (positive? (modulo i 6))
(loop (+ i 1))))