ソースは短いから直接載せちゃう。
#!/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