Skip to content

Instantly share code, notes, and snippets.

@LuminousMonkey

LuminousMonkey/gist:ec9413fa59d85ecf0719

Created December 14, 2014 11:16
Show Gist options
  • Save LuminousMonkey/ec9413fa59d85ecf0719 to your computer and use it in GitHub Desktop.
Save LuminousMonkey/ec9413fa59d85ecf0719 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.clj
(defn paradox
"Will take number of trials and return the average."
[s]
(/ (reduce + (take s (repeatedly
#(reduce * 2 (map inc (take-while odd? (repeatedly (fn [] (rand-int 2))))))))) s))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment