Initial data commit
This commit is contained in:
parent
72d218235f
commit
f23f22d71c
199087 changed files with 3378941 additions and 0 deletions
18
Task/Arithmetic-Complex/Factor/arithmetic-complex.factor
Normal file
18
Task/Arithmetic-Complex/Factor/arithmetic-complex.factor
Normal file
|
|
@ -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
|
||||
[ recip . ] ! multiplicative inverse
|
||||
[ conjugate . ] ! complex conjugate
|
||||
[ sin . ] ! sine
|
||||
[ log . ] ! natural logarithm
|
||||
[ sqrt . ] ! square root
|
||||
} cleave
|
||||
Loading…
Add table
Add a link
Reference in a new issue