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