6 lines
130 B
Scheme
6 lines
130 B
Scheme
(letrec ((fac (λ (n)
|
|
(if (zero? n)
|
|
1
|
|
(* n (fac (- n 1)))))))
|
|
(fac 20))
|