Data commit

Task/Topswops/Raku/topswops-1.raku

@@ -0,0 +1,12 @@
+sub swops(@a is copy) {
+    my int $count = 0;
+    until @a[0] == 1 {
+        @a[ ^@a[0] ] .= reverse;
+        ++$count;
+    }
+    $count
+}
+
+sub topswops($n) { max (1..$n).permutations.race.map: &swops }
+
+say "$_ {topswops $_}" for 1 .. 10;

Task/Topswops/Raku/topswops-2.raku

@@ -0,0 +1,12 @@
+sub swops($a is copy) {
+    my int $count = 0;
+    while (my \l = $a.ord) > 1 {
+        $a = $a.substr(0, l).flip ~ $a.substr(l);
+        ++$count;
+    }
+    $count
+}
+
+sub topswops($n) { max (1..$n).permutations.map: { .chrs.join.&swops } }
+
+say "$_ {topswops $_}" for 1 .. 10;