6 lines
111 B
Scheme
6 lines
111 B
Scheme
|
|
(let ((n+ 0))
|
||
|
|
(do ((n- 5 (1- n-))
|
||
|
|
(n+ n+ (1+ n+)))
|
||
|
|
((= n- 0))
|
||
|
|
(format #t "n- = ~a~%" n-)))
|