summary refs log tree commit diff homepage
path: root/2020/day16.pl
diff options
context:
space:
mode:
Diffstat (limited to '2020/day16.pl')
-rw-r--r--2020/day16.pl30
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";