8 lines
219 B
Scheme
8 lines
219 B
Scheme
|
(letrec ((F (lambda (n)
|
||
|
|
(if (= n 0) 1
|
||
|
|
(- n (M (F (- n 1)))))))
|
||
|
|
(M (lambda (n)
|
||
|
|
(if (= n 0) 0
|
||
|
|
(- n (F (M (- n 1))))))))
|
||
|
|
(F 19)) # evaluates to 12
|