Add all the A tasks

2013-04-10 14:58:50 -07:00 · 2013-04-10 14:58:50 -07:00 · 051504d65b
commit 051504d65b
parent 2dd7375f96
1608 changed files with 18584 additions and 0 deletions
--- a/Task/Arithmetic-Complex/Perl/arithmetic-complex.pl
+++ b/Task/Arithmetic-Complex/Perl/arithmetic-complex.pl
@ -0,0 +1,10 @@
+use Math::Complex;
+my $a = 1 + 1*i;
+my $b = 3.14159 + 1.25*i;
+
+print "$_\n" foreach
+    $a + $b,    # addition
+    $a * $b,    # multiplication
+    -$a,        # negation
+    1 / $a,     # multiplicative inverse
+    ~$a;        # complex conjugate