blob: f87b2dcd16cab2ec2c164541a68752a1484472c7 [file] [log] [blame]
; The hello-world for interpreters ;-)
(define (factorial n)
(if (<= n 0) 1
(* n (factorial (- n 1)))))