day12.pl (273B) - raw
1 #!/usr/local/bin/perl 2 # day 2015-12 3 4 use strict; 5 use warnings; 6 use v5.32; 7 8 @ARGV = "input" unless @ARGV; 9 10 chomp( my $input = do { local $/; <> } ); 11 12 use List::Util qw( sum ); 13 14 say $input; 15 16 my @matches = $input =~ m/(-?\d+)/g; 17 18 say "part 1: ", sum @matches; 19 say "part 2: ";