aoc

Advent of Code Solutions
git clone git://git.alexkarle.com.com/aoc
Log | Files | Refs | README | LICENSE

1.pl (198B) [raw]

      1 #!/usr/bin/env perl
      2 use strict;
      3 use warnings;
      4 
      5 my $s = 0;
      6 while (<ARGV>) {
      7     $_ =~ /(\d)/;
      8     my $first = $1;
      9     $_ =~ /.*(\d)/;
     10     my $last = $1;
     11     $s += ($first . $last);
     12 }
     13 
     14 print("$s\n");