mirror
/
RosettaCodeData
mirror of https://github.com/acmeism/RosettaCodeData.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity
RosettaCodeData/Task/Loops-Do-while/Scheme/loops-do-while.ss

5 lines
86 B
Scheme
Raw Permalink Blame History

(let loop ((i 1))
(display i)
(if (positive? (modulo i 6))
(loop (+ i 1))))
Reference in New Issue View Git Blame Copy Permalink