5 lines
80 B
Scheme
5 lines
80 B
Scheme
(define (factorial n)
|
|
(if (zero? n)
|
|
1
|
|
(* n (factorial (- n 1)))))
|