7 lines
219 B
Scheme
7 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
|