7 lines
119 B
Scheme
7 lines
119 B
Scheme
(define fact
|
|
(lambda (n)
|
|
(let loop ([n n][res 1])
|
|
(if (zero? n)
|
|
res
|
|
(loop (sub1 n) (* n res))))))
|