5 lines
100 B
Text
5 lines
100 B
Text
(lib 'bigint)
|
|
(define (!n n)
|
|
(if (zero? n) 0
|
|
(+ (!n (1- n)) (factorial (1- n)))))
|
|
(remember '!n)
|