aoc2015

Advent of Code 2015 solutions in Perl.
git clone git://git.samirparikh.com/aoc2015
Log | Files | Refs | README

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: ";