Rosetta Code

Monte Carlo methods: Difference between revisions

Page Discussion

Monte Carlo methods (view source)

Revision as of 14:29, 6 January 2019

60 bytes removed ,  5 years ago
m
→‎{{header|Clojure}}
Line 392:
</pre>
 
<lang lisp>(defdefn pi-seqexperiment
(pmap first[]
(if (<= (+ (Math/pow (rand) 2) (Math/pow (rand) 2)) 1) (inc1 within0) within)▼
(iterate
(fn [[pi within total]]
[ (double (* (/ within total) 4))
▲ (if (<= (+ (Math/pow (rand) 2) (Math/pow (rand) 2)) 1) (inc within) within)
(inc total) ] )
[0.0 0N 1N])))
 
(nthdefn pi-seqestimate 1000000)
[n]
(* 4 (float (/ (reduce + (take n (repeatedly experiment))) n))))
 
(pi-estimate 10000)
</lang>
 
{{out}}
<pre>
3.1404921347999572753906
</pre>
 
Anonymous user
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/82638"