fork download
copy 
  1. ;calculate Pi using Monte Carlo Method
  2. (defn pi [sample-size]
  3.   (loop [c 0 in 0]
  4.     (if (< c sample-size)
  5.         (recur (inc c)
  6.                (if (let [x (rand) y (rand)] (>= 1 (+ (* x x) (* y y))))
  7.                    (inc in)
  8.                    in))
  9.         (* 4.0 (/ in sample-size)))))
  10.  
  11. (println(pi 3242242))
Success #stdin #stdout 2.61s 214656KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
3.142550124265863
https://ideone.com/zvQLu
language:
Clojure (clojure 1.10.0)
created:
14 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!