scsh-conservatory
/
scsh-0.5
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
scsh-0.5/debug/fact.scm

9 lines
114 B
Scheme
Raw Blame History

; don't copyright this, silly shell script
(define (fact n)
(if (= n 0)
1
(* n (fact (- n 1)))))
Reference in New Issue View Git Blame Copy Permalink