Sicp. 1.12.

sankara · Apr 17, 2010 · fb2ebb0 · fb2ebb0
1 parent e60df1d
commit fb2ebb0
Show file tree

Hide file tree

Showing 2 changed files with 16 additions and 0 deletions.
diff --git 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
@@ -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)