diff options
| -rw-r--r-- | day06.pl | 7 |
1 files changed, 1 insertions, 6 deletions
diff --git a/day06.pl b/day06.pl index 218531b..9c94274 100644 --- a/day06.pl +++ b/day06.pl @@ -3,12 +3,7 @@ use v5.16; use File::Slurper 'read_lines'; -my %orbits; - -for (read_lines("day06")) { - my ($in, $out) = split /\)/; - $orbits{$out} = $in; -} +my %orbits = map { reverse split /\)/ } read_lines("day06"); my $p1 = 0; for (keys %orbits) { |