Monte Carlo methods: Difference between revisions
Added Arturo implementation
(Added Quackery.) |
Drkameleon (talk | contribs) (Added Arturo implementation) |
||
Line 201:
100 000 000:+3.14153276000000e +0
</pre>
=={{header|Arturo}}==
<lang rebol>Pi: function [throws][
inside: new 0.0
do.times: throws [
if 1 > hypot random 0 1.0 random 0 1.0 -> inc 'inside
]
return 4 * inside / throws
]
loop [100 1000 10000 100000 1000000] 'n ->
print [pad to :string n 10 "=>" Pi n]</lang>
{{out}}
<pre> 100 => 3.4
1000 => 3.112
10000 => 3.1392
100000 => 3.14368
1000000 => 3.14106</pre>
=={{header|AutoHotkey}}==
| |||