rpms
/
guile
2
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity
guile/tests/smoke/fact

7 lines
100 B
Plaintext
Raw Blame History

(define (fact n)
(if (zero? n) 1
(* n (fact (- n 1)))))
(display (fact 12))
(newline)
Reference in New Issue View Git Blame Copy Permalink