gistfile1.clj

(defn mandelbrot [c ^long limit]
    (loop [rate limit
           s (iterate #(+ (* % %) c) 0.0)]
        (if (and (> rate 0) (< (abs (first s)) 2.0))
          (recur (dec rate) (rest s))
          rate)))