Skip to content

Instantly share code, notes, and snippets.

@eliwinkelman
Created August 1, 2019 21:17
Show Gist options
  • Save eliwinkelman/f8600c7baa038ce3bc5e44f969e74d72 to your computer and use it in GitHub Desktop.
Save eliwinkelman/f8600c7baa038ce3bc5e44f969e74d72 to your computer and use it in GitHub Desktop.
Clojure Quine with parallelism
(use 'clojure.core.reducers)(def Q '(let [S (str "(use 'clojure.core.reducers)(def Q " Q ") (eval Q)")] (foldcat (map (fn* [x] (spit (str x) S)) (vec (range 750000))))))(eval Q)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment