9 lines
216 B
Scheme
9 lines
216 B
Scheme
(define (A k x1 x2 x3 x4 x5)
|
|
(define (B)
|
|
(set! k (- k 1))
|
|
(A k B x1 x2 x3 x4))
|
|
(if (<= k 0)
|
|
(+ (x4) (x5))
|
|
(B)))
|
|
|
|
(A 10 (lambda () 1) (lambda () -1) (lambda () -1) (lambda () 1) (lambda () 0))
|