adventofcode/2015/12/b.pl
Yanick Champoux 592efaf1af day12
2017-12-05 15:12:32 -05:00

21 lines
420 B
Perl

use 5.20.0;
use List::AllUtils qw/ sum /;
use File::Serialize;
use experimental 'signatures', 'smartmatch';
my $data = deserialize_file shift;
say add($data);
sub add($data) {
given ( ref $data ) {
return sum map { add($_) } @$data when 'ARRAY';
return ( ( grep { $_ eq 'red' } values %$data ) ? 0 : 1) * sum map { add($_) } values %$data when 'HASH';
default { return 0 + $data };
}
}