朝日新聞2004年6月12日パズルパーク解答

ソースは短いから直接載せちゃう。

#!/usr/bin/perl
$a = 3;
$b = 1;
print "$a $b ";
do {
  $cnt++;
  $c = $a + $b;
  $c %= 10;
  print "$c ";
  $a = $b;
  $b = $c;
}while( !($a == 3 && $b == 1));
print "\ncnt:$cnt\n";
exit 0;

プログラムの実行結果は以下の通り。

3 1 4 5 9 4 3 7 0 7 7 4 1 5 6 1 7 8 5 3 8 1 9 0 9 9 8 7 5 2 7 9 6 5 1 6 7 3 0 3 3 6 9 5 4 9 3 2 5 7 2 9 1 0 1 1 2 3 5 8 3 1 
cnt:60