From 3555f2afe06cf290e77585836502cfb70544d5f0 Mon Sep 17 00:00:00 2001 From: June McEnroe Date: Wed, 16 Dec 2020 12:36:55 -0500 Subject: Solve day 16 part 1 in C --- 2020/day16.pl | 30 ------------------------------ 1 file changed, 30 deletions(-) delete mode 100644 2020/day16.pl (limited to '2020/day16.pl') 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"; -- cgit 1.4.1