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