Day 8: a bit cleaner version

[aoc2021.git] / 15.pl

diff --git a/15.pl b/15.pl
index 8a104b49af0f1fb1facde59e9dc28d04dde07377..19d53b85b9cf9f2254b0f7e39b94e4b2ae146b60 100755 (executable)
--- a/15.pl
+++ b/15.pl
@@ -2,11 +2,12 @@
 
 use v5.16;
 
+my %l = map { $_ => 1 } qw(2 3 4 7);
 my $sum;
 while (<>) {
        chomp;
        s/.*\| //;
-       $sum += grep { my $x = length; $x == 2 || $x == 3 || $x == 4 || $x == 7; } split /\s+/;
+       $sum += grep { $l{length()} } split /\s+/;
 }
 
 say $sum;