diff options
author | June McEnroe <june@causal.agency> | 2020-12-16 12:36:55 -0500 |
---|---|---|
committer | June McEnroe <june@causal.agency> | 2020-12-16 12:36:55 -0500 |
commit | 3555f2afe06cf290e77585836502cfb70544d5f0 (patch) | |
tree | cf84a7915fdf719286e63b240a53fbe0f2c3a60e /2020/day16.pl | |
parent | Solve day 16 part 1 (diff) | |
download | aoc-3555f2afe06cf290e77585836502cfb70544d5f0.tar.gz aoc-3555f2afe06cf290e77585836502cfb70544d5f0.zip |
Solve day 16 part 1 in C
Diffstat (limited to '2020/day16.pl')
-rw-r--r-- | 2020/day16.pl | 30 |
1 files changed, 0 insertions, 30 deletions
diff --git a/2020/day16.pl b/2020/day16.pl deleted file mode 100644 index 8ebe521..0000000 --- a/2020/day16.pl +++ /dev/null @@ -1,30 +0,0 @@ -use strict; -use warnings; - -my (%rules, @ticket, @nearby); -while (<>) { - chomp; - if (/([^:]+): (\d+)-(\d+) or (\d+)-(\d+)/) { - $rules{$1} = [$2, $3, $4, $5]; - } elsif (/your ticket:/) { - <>; - chomp; - @ticket = split ','; - } elsif (/^[\d,]+$/) { - my @fields = split ','; - push @nearby, \@fields; - } -} - -my $error = 0; -foreach my $t (@nearby) { - foreach my $f (@$t) { - my $valid = 0; - foreach my $r (values %rules) { - $valid = 1 if $f >= $$r[0] && $f <= $$r[1]; - $valid = 1 if $f >= $$r[2] && $f <= $$r[3]; - } - $error += $f unless $valid; - } -} -print "$error\n"; |