Saturday, March 03, 2007

Perl/펄] 제곱 기호,함수, 거듭제곱(세제곱,네제곱), 몇 승 구하기; Raise Power, Pow

펄에서는 ** 라는 "연산자"로 숫자를 제곱할 수 있습니다. 별표(애스터리스크) 기호를 2개 중복한 것입니다. 예를 들어 3의 제곱은
3 ** 2
로 표현하면 됩니다. 3의 네제곱은 3 ** 4 이렇게 표현합니다.

다음은, 0의 0승부터 즉 0의 0제곱부터, 5의 5승 즉 5의 다섯제곱까지 구하는 방법입니다.

"0의 0승" 즉 "0의 0제곱"은 수학적으로 정의되어 있지 않지만, 프로그래밍 언어에서는 1로 간주합니다.

Perl에서, 숫자 제곱 연산자 ** 사용법

파일명: example.pl

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

my $result;

for (my $i = 0; $i <= 5; $i++) {
print "\n";
for (my $j = 0; $j <= 5; $j++) {
$result = $i ** $j;
printf("%d 의 %d 승 = %d\n", $i, $j, $result);
}
}

실행 결과 화면:

D:\Z>example.pl

0 의 0 승 = 1
0 의 1 승 = 0
0 의 2 승 = 0
0 의 3 승 = 0
0 의 4 승 = 0
0 의 5 승 = 0

1 의 0 승 = 1
1 의 1 승 = 1
1 의 2 승 = 1
1 의 3 승 = 1
1 의 4 승 = 1
1 의 5 승 = 1

2 의 0 승 = 1
2 의 1 승 = 2
2 의 2 승 = 4
2 의 3 승 = 8
2 의 4 승 = 16
2 의 5 승 = 32

3 의 0 승 = 1
3 의 1 승 = 3
3 의 2 승 = 9
3 의 3 승 = 27
3 의 4 승 = 81
3 의 5 승 = 243

4 의 0 승 = 1
4 의 1 승 = 4
4 의 2 승 = 16
4 의 3 승 = 64
4 의 4 승 = 256
4 의 5 승 = 1024

5 의 0 승 = 1
5 의 1 승 = 5
5 의 2 승 = 25
5 의 3 승 = 125
5 의 4 승 = 625
5 의 5 승 = 3125

D:\Z>