initial commit
diff --git a/ch01/test11.lisp b/ch01/test11.lisp
index e69de29..d5633d9 100644
--- a/ch01/test11.lisp
+++ b/ch01/test11.lisp
@@ -0,0 +1,23 @@
+(defun f-recu-impl (n)
+  (if (< n 3)
+      n
+      (+ (f-recu-impl (- n 1))
+         (* (f-recu-impl (- n 2)) 2)
+         (* (f-recu-impl (- n 3)) 3))))
+
+(defun f-iter-impl (n)
+  (defun f-iter (a b c counter)
+    (if (= counter n)
+        c
+        (f-iter (+ a (* b 2) (* c 3))
+                a
+                b
+                (1+ counter))))
+  (f-iter 2 1 0 0))
+
+(defun f-do-impl (n)
+  (do ((a 2 (+ a (* b 2) (* c 3)))
+       (b 1 a)
+       (c 0 b)
+       (counter 0 (+ counter 1)))
+      ((= counter n) c)))
diff --git a/ch01/test12.lisp b/ch01/test12.lisp
index 8b13789..8153119 100644
--- a/ch01/test12.lisp
+++ b/ch01/test12.lisp
@@ -1 +1,5 @@
+(defun Pascal-Triangle-recu-impl (x y)
+  (cond ((or (= x 1) (= x y)) 1)
+        (t (+ (Pascal-Triangle-recu-impl (- x 1) (- y 1))
+               (Pascal-Triangle-recu-impl x (- y 1))))))