Data commit

Task/Pascals-triangle/Clojure/pascals-triangle-1.clj

@@ -0,0 +1,12 @@
+(defn pascal [n]
+  (let [newrow (fn newrow [lst ret]
+                   (if lst
+                       (recur (rest lst)
+                              (conj ret (+ (first lst) (or (second lst) 0))))
+                       ret))
+        genrow (fn genrow [n lst]
+                   (when (< 0 n)
+                     (do (println lst)
+                         (recur (dec n) (conj (newrow lst []) 1)))))]
+    (genrow n [1])))
+(pascal 4)

Task/Pascals-triangle/Clojure/pascals-triangle-2.clj

@@ -0,0 +1,8 @@
+(defn nextrow [row]
+  (vec (concat [1] (map #(apply + %) (partition 2 1 row)) [1] )))
+
+(defn pascal [n]
+  (assert (and (integer? n) (pos? n)))
+  (let [triangle (take n (iterate nextrow [1]))]
+    (doseq [row triangle]
+      (println row))))

Task/Pascals-triangle/Clojure/pascals-triangle-3.clj

@@ -0,0 +1,7 @@
+(def pascal
+  (iterate
+    (fn [prev-row]
+      (->>
+        (concat [[(first prev-row)]] (partition 2 1 prev-row) [[(last prev-row)]])
+        (map (partial apply +) ,,,)))
+     [1]))

Task/Pascals-triangle/Clojure/pascals-triangle-4.clj

@@ -0,0 +1,5 @@
+(def pascal
+  (iterate #(concat [1]
+                    (map + % (rest %))
+                    [1])
+           [1]))

Task/Pascals-triangle/Clojure/pascals-triangle-5.clj

@@ -0,0 +1 @@
+(take 10 pascal) ; returns a list of the first 10 pascal rows

Task/Pascals-triangle/Clojure/pascals-triangle-6.clj

@@ -0,0 +1 @@
+(nth pascal 10) ;returns the nth row