2008-09-18 個人的メモ Perl my $moto = 19871024; while($moto >= 10){ my $sum = 0; map { $sum += $_ } split(//, $moto); $moto = $sum; } print $moto; 最低限の処理をするコード。 誕生日を一文字ずつ足してって、合計が10より少なくなるまでループして足していくというもの。 もっと簡略化絶対出来るんだけど、ひらめかない。