Skip to content

Instantly share code, notes, and snippets.

@vorce

vorce/henon.clj

Last active March 7, 2016 15:17
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 vorce/7d3aa0efee1ce94a9d5d to your computer and use it in GitHub Desktop.
Save vorce/7d3aa0efee1ce94a9d5d to your computer and use it in GitHub Desktop.
Download ZIP
Raw
henon.clj
(defn _henon [x y]
(let [x1 (* 1.4 (Math/pow x 2))]
[(+ y (- 1 x1)), (* x 0.3)]))
(defn henon [x y]
(let [[hx hy] (_henon x y)]
(lazy-seq (cons [hx hy] (henon hx hy)))))
; Example usage: (take 100 (henon 1 1))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment