Add log with $base functions.

Kodi++ for providing initial implementation.

src/setting/Any-num.pm

@@ -79,6 +79,14 @@ class Any is also {
         $.Num.log();
     }
 
+    multi method log($base) {
+        $.Num.log($base);
+    }
+
+    multi method log10() {
+        $.Num.log10();
+    }
+
     our multi method !from-radians($base) {
         given $base {
             when /:i ^d/ { self * 180/pi  }    # Convert to degrees.
@@ -193,8 +201,9 @@ class Any is also {
 
 multi sub abs($x) { $x.abs() }
 multi sub exp($x) { $x.Num.exp() }
-multi sub log($x) { $x.Num.log() }
-multi sub log10($x) { $x.Num.log10 }
+multi sub log($x) { $x.log() }
+multi sub log($x, $base) { $x.log($base) }
+multi sub log10($x) { $x.log10 }
 
 # jnthn says that we should have both the multi sub declaration and the proto.
 

src/setting/Complex.pm

@@ -147,6 +147,10 @@ class Complex {
         }
     }
 
+    multi method log($base) {
+        $.log / $base.log;
+    }
+
     multi method log10() {
         $.log / 10.log;
     }
@@ -300,14 +304,6 @@ multi sub infix:<**>($a, Complex $b) {
     ($a.log * $b).exp;
 }
 
-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/setting/Num.pm

@@ -238,6 +238,10 @@ class Num is also {
         }
     }
 
+    multi method log($base) {
+        $.log / $base.log;
+    }
+
     our method log10 {
         Q:PIR {
             $N0 = self