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

7 lines
120 B
Text

sim:{4*(+/{~1<+/(2_draw 0)^2}'!x)%x}
sim 10000
3.103
sim'10^!8
4 2.8 3.4 3.072 3.1212 3.14104 3.14366 3.1413