From ef1d5ae6393bc198ab7b8dd5ef339fb3619427cb Mon Sep 17 00:00:00 2001
From: Leah Neukirchen <leah@vuxu.org>
Date: Tue, 10 Dec 2019 13:39:12 +0100
Subject: day06.pl: make nicer

---
 day06.pl | 7 +------
 1 file changed, 1 insertion(+), 6 deletions(-)

(limited to 'day06.pl')

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) {
-- 
cgit 1.4.1