RosettaCodeData/Task/Integer-sequence/Scheme/integer-sequence.ss
Ingy döt Net db842d013d A-M baby
2013-04-10 21:29:02 -07:00

3 lines
60 B
Scheme

(let loop ((i 1))
(display i) (newline)
(loop (+ 1 i)))