ファイルから名前を読んでそれぞれスコアを付けて、その合計を求めろという 問題。名前が二重引用符でくくられてるのが微妙にやらしいけど、それ以外は簡単。 #!/usr/bin/perl use strict; use warnings; print "Answer is ", p22(), "\n"; # Answer is 8711…

過剰数の和で表せない数の合計を求めろという問題。上限がわかっているので、 配列を使ってといてみた。若干 Lisp風に考えてみたかなって思ったけど、全然 そんなことはないかな。約数の和を求めるのは過去の資源を再利用。 #!/usr/bin/perl use strict; use…