12 lines
236 B
AppleScript
12 lines
236 B
AppleScript
|
on montecarlo(n)
|
||
|
|
set m to 0
|
||
|
|
repeat n times
|
||
|
|
set x to random number from 0.0 to 1.0
|
||
|
|
set y to random number from 0.0 to 1.0
|
||
|
|
if x ^ 2 + y ^ 2 < 1 then set m to m + 1
|
||
|
|
end repeat
|
||
|
|
return 4 * m / n
|
||
|
|
end montecarlo
|
||
|
|
|
||
|
|
montecarlo(1000000)
|