Psacal's Functional Triangle

pascal.clj

(ns pascal)

(defn next-row
  "Given one row, generate the next one."
  [row]
  (vec (map + (concat [0] row) (concat row [0]))))

(defn pascal
  "Generate an infinite lazy sequence of Pascal rows."
  []
  (iterate next-row [1]))

;;; Usage
(comment
  (def pascals-triangle (pascal))
  (take 10 pascals-triangle))

nice! easier to grok than Tyo's solution using partial.