Skip to content

Instantly share code, notes, and snippets.

@PaulSandoz

PaulSandoz/gist:1333629

Created November 2, 2011 13:31
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 PaulSandoz/1333629 to your computer and use it in GitHub Desktop.
Save PaulSandoz/1333629 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.clj
(defn- mandelbrot-seqs [n size a b limit]
(let [[lower upper] (normalize a b)
d (delta size lower upper)
[w h] (dimensions size lower upper)]
[w h
(for [[ly uy] (ranges h (int (/ h (min n h))))]
[ 0 ly w (- uy ly) (mandelbrot-seq (range 0 w) (range ly uy) lower d limit) ]
)]))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment