RosettaCodeData/Task/Monte-Carlo-methods/J/monte-carlo-methods-2.j
Ingy döt Net db842d013d A-M baby
2013-04-10 21:29:02 -07:00

1 line
62 B
Text

piMCt=: (0.25&* %~ +/@(1 >: [: +/&.:*: _1 2 p. 0 ?@$~ 2&,))"0