6 lines
127 B
Scheme
6 lines
127 B
Scheme
|
(define (A m n)
|
||
|
|
(cond
|
||
|
|
((= m 0) (+ n 1))
|
||
|
|
((= n 0) (A (- m 1) 1))
|
||
|
|
(else (A (- m 1) (A m (- n 1))))))
|