真面目に解いてみました。 Problem20を先にして使えるなってことで そのまま流用しただけなんですがね。 #!/usr/bin/perl use strict; use warnings; print "Answer is ", p16(1000), "\n"; # Answer is 1366 sub p16 { my ($times) = @_; my @array1 = (2);…

ふとキーボードの汚れが気になって裏向けにしてバンバンと叩いてみたら すごいカスみたいなのが出てきた。正直見なきゃよかったってぐらいだけどね。 これからはたまに掃除することにしよう。

さすがに手を抜きすぎですね。真面目に考えます。 #!/usr/bin/perl use strict; use warnings; use bigint; my $num = 2 ** 1000; my @a = split //, $num; my $sum = 0; map {$sum += $_;} @a; print "$sum\n";