7 lines
185 B
Clojure
7 lines
185 B
Clojure
(def pascal
|
|
(iterate
|
|
(fn [prev-row]
|
|
(->>
|
|
(concat [[(first prev-row)]] (partition 2 1 prev-row) [[(last prev-row)]])
|
|
(map (partial apply +) ,,,)))
|
|
[1]))
|