RosettaCodeData/Task/Monte-Carlo-methods/Perl-6/monte-carlo-methods-2.pl6

my @pi = ([\+] 4 * (1 > [+] rand**2 xx 2) xx *) Z/ 1 .. *;
say @pi[10, 1000, 10_000];