Problem 16

さすがに手を抜きすぎですね。真面目に考えます。

#!/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";