Rework Complex.roots a bit, restoring its original elegance. (It had …

…been hacked to pieces to get it to work under ng.)

src/core/Complex.pm

@@ -159,25 +159,15 @@ class Complex does Numeric is Cool {
         $.abs, atan2($.im, $.re);
     }
 
-    multi method roots($n is copy) {
-       # my ($mag, $angle) = @.polar;
-       my $mag = $.abs;
-       my $angle = atan2($.im, $.re);
-       if $n < 1
-       {
-           return NaN;
-       }
-
-       if $n == 1
-       {
-           return self;
-       }
-
-       # return NaN  if $!re|$!im ~~  Inf|NaN|-Inf;
+    multi method roots(Complex $x: $n is copy) {
+       return NaN if $n < 1;
+       return self if $n == 1;
+       return NaN  if $x.re | $x.im ~~  Inf | NaN | -Inf;
+
+       my ($mag, $angle) = $x.polar;
        $n = $n.Int;
-       $mag **= 1/$n;
-       # (^$n).map: { $mag.unpolar( ($angle + $_ * 2 * pi) / $n) };
-       (0 ... ($n-1)).map: { $mag.unpolar( ($angle + $^x * 2 * 312689/99532) / $n) };
+       $mag **= 1 / $n;
+       (^$n).map: { $mag.unpolar( ($angle + $_ * 2 * pi) / $n) };
     }
 
     multi method sign() {