2013-04-10 21:29:02 -07:00
|
|
|
use 5.010;
|
|
|
|
|
use Regexp::Common;
|
|
|
|
|
use List::Util qw(sum);
|
2018-08-17 15:15:24 +01:00
|
|
|
my @ints = grep { /^$RE{num}{int}$/ } map { $$_ // '' } values %::;
|
2013-04-10 21:29:02 -07:00
|
|
|
my $num = @ints;
|
|
|
|
|
my $sum = sum @ints;
|
|
|
|
|
say "$num integers, sum = $sum";
|
