September Morn Update

2019-09-12 10:33:56 -07:00 · 2019-09-12 10:33:56 -07:00 · aac6731f2c
commit aac6731f2c
parent 4e2d22a71d
6856 changed files with 141342 additions and 21127 deletions
--- a/Task/Monte-Carlo-methods/Clojure/monte-carlo-methods-1.clj
+++ b/Task/Monte-Carlo-methods/Clojure/monte-carlo-methods-1.clj
--- a/Task/Monte-Carlo-methods/Clojure/monte-carlo-methods-2.clj
+++ b/Task/Monte-Carlo-methods/Clojure/monte-carlo-methods-2.clj
@ -0,0 +1,9 @@
+(defn experiment
+  []
+  (if (<= (+ (Math/pow (rand) 2) (Math/pow (rand) 2)) 1) 1 0))
+
+(defn pi-estimate
+  [n]
+  (* 4 (float (/ (reduce + (take n (repeatedly experiment))) n))))
+
+(pi-estimate 10000)