Perl/펄] 복소수 사칙연산; 덧셈, 뺄셈, 곱셈, 나눗셈; Complex Number

#!/usr/bin/perl
use strict; use warnings;

use Math::Complex;


my $a = 8+3*i;  # 복소수 8+3i 를 대입
my $b = 5+2*i;  # 복소수 5+2i 를 대입


# 복소수의 덧셈
print $a + $b, "\n";
# 출력 결과: 13+5i


# 복소수의 뺄셈
print $a - $b, "\n";
# 출력 결과: 3+i


# 복소수의 곱셈
print $a * $b, "\n";
# 출력 결과: 34+31i


# 복소수의 나눗셈
print $a / $b, "\n";
# 출력 결과: 1.58620689655172-0.0344827586206897i