sech and asech, slightly reorder the methods in Real.

rakudo · Aug 15, 2011 · 342e6d9 · 342e6d9
1 parent e8a10fb
commit 342e6d9
Show file tree

Hide file tree

Showing 5 changed files with 31 additions and 15 deletions.
diff --git a/src/core/Complex.pm b/src/core/Complex.pm
@@ -162,14 +162,14 @@ my class Complex is Numeric {
         (((1 + self) / (1 - self)).log / 2);
     }
 
-    # method sech(Complex:D:) {
-    #     1 / self.cosh;
-    # }
-    # 
-    # method asech(Complex:D:) {
-    #     (1 / self).acosh;
-    # }
-    # 
+    method sech(Complex:D:) {
+        1 / self.cosh;
+    }
+
+    method asech(Complex:D:) {
+        (1 / self).acosh;
+    }
+
     # method cosech(Complex:D:) {
     #     1 / self.sinh;
     # }

diff --git a/src/core/Cool.pm b/src/core/Cool.pm
@@ -23,6 +23,8 @@ my class Cool {
     method acosh() { self.Numeric.acosh }
     method tanh()  { self.Numeric.tanh }
     method atanh() { self.Numeric.atanh }
+    method sech()  { self.Numeric.sech }
+    method asech() { self.Numeric.asech }
 
     ## string methods
 

diff --git a/src/core/Num.pm b/src/core/Num.pm
@@ -162,6 +162,10 @@ my class Num {
     multi method sech(Num:D: ) {
         nqp::p6box_n(pir::sech__NN(nqp::unbox_n(self)));
     }
+    proto method asech(|$) {*}
+    multi method asech(Num:D: ) {
+        (1 / self).acosh;
+    }
 }
 
 my constant pi = 3.14159265e0;

diff --git a/src/core/Numeric.pm b/src/core/Numeric.pm
@@ -124,6 +124,14 @@ proto sub atanh(|$) {*}
 multi sub atanh(Numeric \$x) { $x.atanh }
 multi sub atanh(Cool \$x)    { $x.Numeric.atanh }
 
+proto sub sech(|$) {*}
+multi sub sech(Numeric \$x) { $x.sech }
+multi sub sech(Cool \$x)    { $x.Numeric.sech }
+
+proto sub asech(|$) {*}
+multi sub asech(Numeric \$x) { $x.asech }
+multi sub asech(Cool \$x)    { $x.Numeric.asech }
+
 proto sub sqrt(|$) {*}
 multi sub sqrt(Numeric \$x) { $x.sqrt }
 multi sub sqrt(Cool \$x)    { $x.Numeric.sqrt }

diff --git a/src/core/Real.pm b/src/core/Real.pm
@@ -14,6 +14,13 @@ my class Real {
     method acos() { self.Bridge.acos }
     method tan()  { self.Bridge.tan }
     method atan() { self.Bridge.atan }
+    proto method atan2(|$) {*}
+    multi method atan2(Real $x = 1e0) { self.Bridge.atan2($x.Bridge) }
+    multi method atan2(Cool $x = 1e0) { self.Bridge.atan2($x.Numeric.Bridge) }
+    method sec() { self.Bridge.sec }
+    method asec() { self.Bridge.asec }
+    method cosec() { self.Bridge.cosec }
+    method acosec() { self.Bridge.acosec }
     method cotan()  { self.Bridge.cotan }
     method acotan() { self.Bridge.acotan }
     method sinh() { self.Bridge.sinh }
@@ -22,13 +29,8 @@ my class Real {
     method acosh() { self.Bridge.acosh }
     method tanh() { self.Bridge.tanh }
     method atanh() { self.Bridge.atanh }
-    proto method atan2(|$) {*}
-    multi method atan2(Real $x = 1e0) { self.Bridge.atan2($x.Bridge) }
-    multi method atan2(Cool $x = 1e0) { self.Bridge.atan2($x.Numeric.Bridge) }
-    method sec() { self.Bridge.sec }
-    method asec() { self.Bridge.asec }
-    method cosec() { self.Bridge.cosec }
-    method acosec() { self.Bridge.acosec }
+    method sech() { self.Bridge.sech }
+    method asech() { self.Bridge.asech }
     method floor() { self.Bridge.floor }
     method ceiling() { self.Bridge.ceiling }
     method unpolar(Real $angle) {