7 lines
189 B
Scheme
7 lines
189 B
Scheme
(letrec ((fac (λ (n)
|
|
(if (zero? n)
|
|
1
|
|
(* n (fac (- n 1)))))))
|
|
;; 20 is the greatest `n` for which n! ≤ maxBount @Int
|
|
(fac 20))
|