A-M baby

2013-04-10 21:29:02 -07:00 · 2013-04-10 21:29:02 -07:00 · db842d013d
commit db842d013d
parent 764da6cbbb
19005 changed files with 197040 additions and 7 deletions
--- a/Task/Arithmetic-Complex/Factor/arithmetic-complex.factor
+++ b/Task/Arithmetic-Complex/Factor/arithmetic-complex.factor
@ -0,0 +1,18 @@
+USING: combinators kernel math math.functions prettyprint ;
+
+C{ 1 2 } C{ 0.9 -2.78 } {
+    [ + . ]             ! addition
+    [ - . ]             ! subtraction
+    [ * . ]             ! multiplication
+    [ / . ]             ! division
+    [ ^ . ]             ! power
+} 2cleave
+
+C{ 1 2 } {
+    [ neg . ]           ! negation
+    [ 1 swap / . ]      ! multiplicative inverse
+    [ conjugate . ]     ! complex conjugate
+    [ sin . ]           ! sine
+    [ log . ]           ! natural logarithm
+    [ sqrt . ]          ! square root
+} cleave