RosettaCodeData/Task/Monte-Carlo-methods/K/monte-carlo-methods.k

8 lines
120 B
Plaintext

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