Start to implement sign.

rakudo · Jul 26, 2011 · 10d4051 · 10d4051
1 parent d0ce251
commit 10d4051
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 0 deletions.
diff --git a/src/core/Numeric.pm b/src/core/Numeric.pm
@@ -35,6 +35,10 @@ multi prefix:<->(\$a) { -$a.Numeric }
 proto prefix:<abs>(|$) { * }
 multi prefix:<abs>(\$a) { abs $a.Numeric }
 
+proto sub sign(|$) {*}
+multi sub sign(Numeric \$x) { $x.sign }
+multi sub sign(Cool \$x)    { $x.Numeric.sign }
+
 proto sub log(|$) {*}
 multi sub log(Numeric $x) { $x.log }
 multi sub log(Numeric $x, Numeric $base) { $x.log($base) }

diff --git a/src/core/Real.pm b/src/core/Real.pm
@@ -3,6 +3,7 @@ class Complex { ... }
 # XxX role Real does Numeric { ... }
 my class Real {
     method abs()  { self < 0 ?? -self !! self }
+    method sign() { self < 0 ?? -1 !! self == 0 ?? 0 !! 1 }
     method sqrt() { self.Bridge.sqrt }
     method sin()  { self.Bridge.sin }
     method cos()  { self.Bridge.cos }