기차니즘 초절정 고수 일탈을 꿈꾸며... - 스팟

자기전에 블로깅 하던중 아래 링크를 발견했다.

http://synap.tistory.com/entry/문제를-푸시면-기념품을-드립니다
라고 하길래 기념품에 목말라(?) 후딱 풀어보았다.

#!/usr/bin/perl
use bigint;

my $atotal, $btotal   = 0;
my ($a, $b) = (0, 1);
for (;$a <= 99987654321;) {
    print "$a\n";
    $atotal += $a if $a <= 99987654321;
    $btotal += $a if $a <= 12345678999;
    ($a, $b) = ($b, $a+$b);
}

print "result : ".($atotal-$btotal)."\n";

http://{답}.synap.co.kr/ 으로 접속해보니 또다른 문제가 있다.

에잇.... 2시간 삽질해 봤으나 머리가 썩었는지 돌아가질 않는다. 요새 몸상태도 안좋더니 머리도 상태불량인가보다.
그냥 포기하고 쉬어야겠다. 한의원이나 가야지...