Initial data commit

Task/Knuths-algorithm-S/Raku/knuths-algorithm-s.raku

@@ -0,0 +1,17 @@
+sub s_of_n_creator($n) {
+    my (@sample, $i);
+    -> $item {
+        if    ++$i    <= $n { @sample.push:      $item }
+        elsif $i.rand <  $n { @sample[$n.rand] = $item }
+        @sample
+    }
+}
+
+my @bin;
+for ^100000 {
+    my &s_of_n = s_of_n_creator 3;
+    sink .&s_of_n for ^9;
+    @bin[$_]++ for s_of_n 9;
+}
+
+say @bin;