From fb2ebb0e08d6f2e1ec6fd290581c33726287a5da Mon Sep 17 00:00:00 2001
From: Sankara Rameswaran <sankara@bankbazaar.com>
Date: Sat, 17 Apr 2010 20:13:31 +0530
Subject: [PATCH] Sicp. 1.12.

---
 .gitignore                               |  3 +++
 src/main/clojure/sicp/chapter-1/e_12.clj | 13 +++++++++++++
 2 files changed, 16 insertions(+)
 create mode 100644 src/main/clojure/sicp/chapter-1/e_12.clj

diff --git a/.gitignore b/.gitignore
index a688620..01bfa94 100644
--- a/.gitignore
+++ b/.gitignore
@@ -1,3 +1,6 @@
 *.iml
 *.iwl
 *.ipr
+*#
+*~
+
diff --git a/src/main/clojure/sicp/chapter-1/e_12.clj b/src/main/clojure/sicp/chapter-1/e_12.clj
new file mode 100644
index 0000000..83cca46
--- /dev/null
+++ b/src/main/clojure/sicp/chapter-1/e_12.clj
@@ -0,0 +1,13 @@
+(ns sicp.e-12)
+(defn pascal 
+  ([r]
+     (for [i (range r)]
+       (for [j (range (inc i))]
+	 (pascal i j))))
+  ([i j]
+     (cond 
+      (= j 0) 1
+      (= i j) 1
+      :else (+ (pascal (dec i) (dec j))
+	       (pascal (dec i) j)))))
+(pascal 4)