4 Jun 2012
4clojure problem 97 Pascal’s Triangle - calculate the nth row:
My solution:
(defn pascal [n]
(if (= n 1)
[1]
(map #(apply + %)
(partition 2 1
(concat [0] (pascal (- n 1)) [0])))))
(pascal 5)
user=> (1 4 6 4 1)
A negative - my solution doesn’t use tail recursion; on my laptop it works up to about n = 760:
(pascal 10e4)
user=> java.lang.StackOverflowError (NO_SOURCE_FILE:0)