7 lines
100 B
Plaintext
7 lines
100 B
Plaintext
|
(define (fact n)
|
||
|
|
(if (zero? n) 1
|
||
|
|
(* n (fact (- n 1)))))
|
||
|
|
|
||
|
|
(display (fact 12))
|
||
|
|
(newline)
|