RosettaCodeData/Task/Loops-N-plus-one-half/Scheme/loops-n-plus-one-half-2.ss
Ingy döt Net db842d013d A-M baby
2013-04-10 21:29:02 -07:00

7 lines
125 B
Scheme

(let loop ((i 0))
(display i)
(if (= i 10)
(newline)
(begin
(display ", ")
(loop (+ 1 i)))))