move log10 to setting

rakudo · Sep 29, 2009 · d014a99 · d014a99
1 parent 43dfde2
commit d014a99
Show file tree

Hide file tree

Showing 3 changed files with 9 additions and 14 deletions.
diff --git a/src/builtins/math.pir b/src/builtins/math.pir
@@ -58,20 +58,6 @@ Returns the sign of $x, i.e +1 for positive numbers (including Inf), zero for ze
 .end
 
 
-=item log10
-
- &log10 := &log.assuming:base(10);
-
-Returns the base 10 logarithm of $x.
-
-=cut
-
-.sub 'log10'
-    .param num a
-    $N0 = log10 a
-    .return ($N0)
-.end
-
 
 =item e
 

diff --git a/src/setting/Any-num.pm b/src/setting/Any-num.pm
@@ -190,6 +190,7 @@ 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 }
 
 our Num sub rand (*@args) {
     die "too many arguments passed - 0 params expected" if @args;

diff --git a/src/setting/Num.pm b/src/setting/Num.pm
@@ -224,6 +224,14 @@ class Num is also {
         }
     }
 
+    our method log10 {
+        Q:PIR {
+            $N0 = self
+            $N0 = log10 $N0
+            %r  = box $N0
+        }
+    }
+
     our Str multi method perl() {
         ~self
     }