5 lines
97 B
Scheme
5 lines
97 B
Scheme
|
(define (factorial n)
|
||
|
|
(do ((i 1 (+ i 1))
|
||
|
|
(accum 1 (* accum i)))
|
||
|
|
((> i n) accum)))
|