RosettaCodeData/Task/Loops-Do-while/Scheme/loops-do-while.scm

5 lines
86 B
Scheme
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
(let loop ((i 1))
(display i)
(if (positive? (modulo i 6))
(loop (+ i 1))))