5780a84194
The content of this branch was automatically imported from Fedora ELN with the following as its source: https://src.fedoraproject.org/rpms/guile#0db5bc188ea9bb8566250893b43723222d636e0e
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)
|