*cider-scratch*.clj

;; This buffer is for Clojure experiments and evaluation.
;; Press C-j to evaluate the last expression.

(fn trapezoid [v]
  (let [row (fn [v]
              (-> (vector (first v))
                  (into (map #(reduce +' %) (partition 2 1 v)))
                  (conj (last v))))]
    (lazy-seq (cons v (trapezoid (row v))))))

(take 4 (trapezoid [2 3 2]))

(take 4 (iterate (fn [v]
                   (-> (vector (first v))
                       (into (map #(reduce +' %) (partition 2 1 v)))
                       (conj (last v)))) [2 3 2]))