10 lines
224 B
Text
10 lines
224 B
Text
|
(let loop ((i 1))
|
||
|
|
(when (less? i 11)
|
||
|
|
(call/cc (lambda (continue)
|
||
|
|
(display i)
|
||
|
|
(when (zero? (mod i 5))
|
||
|
|
(print)
|
||
|
|
(continue #f))
|
||
|
|
(display ", ")))
|
||
|
|
(loop (+ i 1))))
|