Thursday, February 01, 2007
Perl/펄] 피보나치 수열 구하기; Fibonacci Sequence; 피보나치 수(Fibonacci Number)
다음 펄 코드로 피보나치 수(Fibonacci Number)를 n = 0 ~ 300 까지 구할 수 있습니다. 거대한 숫자는 지수 표기법으로 출력되기에,
use bigint;
라는 줄을 넣어서, 아무리 큰 숫자라도 항상 정수로 나오게 했습니다.
파일명: example.pl
위의 코드를 실행하면, 다음 게시물에 있는 것과 같은, 피보나치 수열 표가 출력됩니다: ▶▶ 피보나치 수열 리스트; Fibonacci Sequence List
use bigint;
라는 줄을 넣어서, 아무리 큰 숫자라도 항상 정수로 나오게 했습니다.
피보나치 수열 구하기 예제 소스
파일명: example.pl
#!/usr/bin/perl
use strict; use warnings;
use bigint;
my $a = 0;
my $b = 1;
my $temp; # $a 의 직전 값을 임시로 담아둘 버퍼
for (my $n = 0; $n <= 300; $n++) {
print $a, "\n";
$temp = $a;
$a = $b;
$b = $temp + $b;
}
use strict; use warnings;
use bigint;
my $a = 0;
my $b = 1;
my $temp; # $a 의 직전 값을 임시로 담아둘 버퍼
for (my $n = 0; $n <= 300; $n++) {
print $a, "\n";
$temp = $a;
$a = $b;
$b = $temp + $b;
}
위의 코드를 실행하면, 다음 게시물에 있는 것과 같은, 피보나치 수열 표가 출력됩니다: ▶▶ 피보나치 수열 리스트; Fibonacci Sequence List
tag: perl
Perl | 펄
<< Home