個人的メモ

my $moto = 19871024;
while($moto >= 10){
  my $sum = 0;
  map { $sum += $_ } split(//, $moto);
  $moto = $sum;
}
print $moto;

最低限の処理をするコード。
誕生日を一文字ずつ足してって、合計が10より少なくなるまでループして足していくというもの。
もっと簡略化絶対出来るんだけど、ひらめかない。