12 lines
154 B
Scheme
12 lines
154 B
Scheme
|
|
||
|
|
(define (a proc)
|
||
|
|
(proc 5))
|
||
|
|
|
||
|
|
(letrec
|
||
|
|
((res '()))
|
||
|
|
(a
|
||
|
|
(lambda (arg)
|
||
|
|
(if (< arg 0)
|
||
|
|
(set! res (- arg))
|
||
|
|
(set! res arg)))))
|