clesgo

clesgo.clj

(ns madness)

(defn reset []
  ((fn clesgo [n]
     (defn go-clesgo [m]
       (clesgo (+ n m)))
     n)
   1))

(defn abandon-hope []
  (reset)
  [(last
     (repeatedly 1000
       (let [f go-clesgo] #(f 1))))

   (last (repeatedly 1000 #(go-clesgo 1)))])