Skip to content

Instantly share code, notes, and snippets.

@divs1210

divs1210/pascal.clj

Last active December 17, 2018 12:36
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save divs1210/1e4f5cc9c7a2bb4ce1817ba6aa6aa9a3 to your computer and use it in GitHub Desktop.
Save divs1210/1e4f5cc9c7a2bb4ce1817ba6aa6aa9a3 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
pascal.clj
(ns pascal)
(defn step [row]
(let [parents (partition 2 1 row)
new-row-middle (map (fn [[x y]]
(+ x y))
parents)]
(concat [1] new-row-middle [1])))
(defonce pascals-triangle
(iterate step [1]))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment