2016 Update
This commit is contained in:
parent
948b86eafa
commit
dcf5d15da3
7965 changed files with 139854 additions and 31002 deletions
|
|
@ -1,9 +1,8 @@
|
|||
defmodule MonteCarlo do
|
||||
def pi(n) do
|
||||
:random.seed(:os.timestamp)
|
||||
count = Enum.count(1..n, fn _ ->
|
||||
x = :random.uniform
|
||||
y = :random.uniform
|
||||
x = :rand.uniform
|
||||
y = :rand.uniform
|
||||
:math.sqrt(x*x + y*y) <= 1
|
||||
end)
|
||||
4 * count / n
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue