7 lines
121 B
Perl
7 lines
121 B
Perl
|
use Math::Complex;
|
||
|
|
|
||
|
|
$c1 = Math::Complex->new(1,1);
|
||
|
|
|
||
|
|
$c2 = Math::Complex->new(2,2);
|
||
|
|
|
||
|
|
print "$c2 > $c1" if $c2 > $c1;
|