Add Numeric.log10 which simply calls self.log(10) -- remove resulting…

… unneeded log10s from Complex and Num.

src/core/Complex.pm

@@ -155,10 +155,6 @@ class Complex does Numeric {
         $.log / $base.log;
     }
 
-    multi method log10() {
-        $.log / 10.log;
-    }
-
     multi method polar() {
         $.abs, atan2($.im, $.re);
     }
@@ -336,10 +332,6 @@ multi sub log(Complex $x) {
     $x.log()
 }
 
-multi sub log10(Complex $x) {
-    $x.log10;
-}
-
 multi sub sign(Complex $x) { $x.sign }
 
 multi sub sqrt(Complex $x) {

src/core/Num.pm

@@ -79,10 +79,6 @@ augment class Num does Real {
         $.log / $base.log;
     }
 
-    multi method log10() {
-        pir::log10__Nn(self);
-    }
-
     multi method perl() {
         ~self;
     }

src/core/Numeric.pm

@@ -1,3 +1,5 @@
 role Numeric {
-    # no methods yet
+    method log10(Numeric $x:) {
+        self.log(10);
+    }
 }