3 lines
101 B
Text
3 lines
101 B
Text
|
monteCarloPi = 4. Mean[UnitStep[1 - Total[RandomReal[1, {2, #}]^2]]] &;
|
||
|
|
monteCarloPi /@ (10^Range@6)
|