June 2018 Update

Task/Josephus-problem/Perl-6/josephus-problem.pl6

@@ -0,0 +1,16 @@
+sub Execute(@prisoner, $k) {
+    until @prisoner == 1 {
+	@prisoner.=rotate($k - 1);
+	@prisoner.shift;
+    }
+}
+
+my @prisoner = ^41;
+Execute @prisoner, 3;
+say "Prisoner {@prisoner} survived.";
+
+# We don't have to use numbers.  Any list will do:
+
+my @dalton = <Joe Jack William Averell Rantanplan>;
+Execute @dalton, 2;
+say "{@dalton} survived.";