素因数の最大値を求める問題。問題の数値が大きいからそれなりに時間がかかりますね。 なんでかは知らないけど、素因数は目的の数の二乗根より小さいのでそれで計算時間を短縮。 #!/usr/bin/perl use strict; use warnings; print "max prime factor is ", p…

2問目。問題を見たときに偶数の項のことを偶数番目の項と思ったんだけど、英語を 見ると even-valued termsになっているので値が偶数の項みたいです。 #!/usr/bin/perl use strict; use warnings; print "sum is ", p2(4000000), "\n"; # 4613732 sub p2 { m…

結構 http://odz.sakura.ne.jp/projecteuler/index.php?Project%20Euler が流行っているようなので便乗して頑張る。使用言語は基本 Perlで。 #!/usr/bin/perl use strict; use warnings; print "input number >>> "; chomp( my $num = <STDIN>); print "sum is ", p</stdin>…