scsh-0.5/debug/fact.scm

9 lines
114 B
Scheme
Raw Normal View History

1995-10-13 23:34:21 -04:00
; don't copyright this, silly shell script
(define (fact n)
(if (= n 0)
1
(* n (fact (- n 1)))))