Data commit

Task/Monte-Carlo-methods/Raku/monte-carlo-methods-1.raku

@@ -0,0 +1,9 @@
+my @random_distances = ([+] rand**2 xx 2) xx *;
+
+sub approximate_pi(Int $n) {
+    4 * @random_distances[^$n].grep(* < 1) / $n
+}
+
+say "Monte-Carlo π approximation:";
+say "$_ iterations:  ", approximate_pi $_
+    for 100, 1_000, 10_000;

Task/Monte-Carlo-methods/Raku/monte-carlo-methods-2.raku

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