Perl/펄] 피보나치 수열 구하기; Fibonacci Sequence; 피보나치 수(Fibonacci Number)
Thursday, February 01, 2007
스폰서 링크다음 펄 코드로 피보나치 수(Fibonacci Number)를 n = 0 ~ 300 까지 구할 수 있습니다. 거대한 숫자는 지수 표기법으로 출력되기에, use bigint; 라는 줄을 넣어서, 아무리 큰 숫자라도 항상 정수로 나오게 했습니다.
파일명: example.pl
위의 코드를 실행하면, 다음 게시물에 있는 것과 같은, 피보나치 수열 표가 출력됩니다: ▶▶ 피보나치 수열 리스트; Fibonacci Sequence List
펄 강좌와 각종 예제 ☞ Perl (펄)
피보나치 수열 구하기 예제
파일명: 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
펄 강좌와 각종 예제 ☞ Perl (펄)
Post a Comment
<< Home