AKS test for primes: Difference between revisions

Content deleted Content added

Inline

@@ Line 373: / Line 373: @@
 say '-----------';
-for ^13 -> $p {
+sub super ($n) {
-    say $p.fmt('%2i: '), reverse do
+    $n.trans: '0123456789'
+           => '⁰¹²³⁴⁵⁶⁷⁸⁹';
-        expansions[$p].reverse.kv.map: -> $c, $n {
+}
-                           (< + - >[$n < 0] ~ ' ') x ( $c != $p        ) ~
-                                            $n.abs x ( $c != $p or !$p ) ~
+for ^13 -> $d {
-                                               'x' x ( $c > 0          ) ~
+    say $d.fmt('%2i: '), (
-            $c.trans('0123456789' => '⁰¹²³⁴⁵⁶⁷⁸⁹') x ( $c > 1          );
+        expansions[$d].kv.map: -> $i, $n {
+            my $p = $d - $i;
+            join '', gather {
+                take < + - >[$n < 0] ~ ' ' unless $p == $d;
+                take $n.abs                unless $p == $d > 0;
+                take 'x'                   if $p > 0;
+                take super $p - $i         if $p > 1;
+            }
         }
+    )
 }