add rec example

diff --git a/example/rec.scm b/example/rec.scm
index b085943..d35c55f 100644 (file)
--- a/example/rec.scm
+++ b/example/rec.scm
@@ -1,6 +1,7 @@
 ;; expected output
 ;;;  not rec
 ;;;  rec
+;;;  3628800
 (let ([f (lambda (n) (print "not rec"))])
   (let ([f (lambda (n) (if (= n 0)
                           (print "rec")
@@ -11,4 +12,10 @@
   (letrec ([f (lambda (n) (if (= n 0)
                           (print "rec")
                           (f 0)))])
-    (f 1)))
\ No newline at end of file
+    (f 1)))
+
+(letrec ([fact (lambda (n) 
+                (if (<= n 1)
+                    1
+                    (* n (fact (- n 1)))))])
+  (print (fact 10)))
\ No newline at end of file