2024.5.raku

# AoC 2024 Day 5 #

# my $input = "2024.5.in".IO.slurp;
my $input = "47|53\n97|13\n97|61\n97|47\n75|29\n61|13\n75|53\n29|13\n97|29\n53|29\n61|53\n97|53\n61|29\n47|13\n75|47\n97|75\n47|61\n75|61\n47|29\n75|13\n53|13\n\n75,47,61,53,29\n97,61,53,29,13\n75,29,13\n75,97,47,61,53\n61,13,29\n97,13,75,29,47\n";

my ($rules, $updates) = $input.split("\n\n");
my (%rules, @updates) = (Map.new, {});

$rules.split("\n").map({ %rules{$_} = True });
$updates.split("\n").map({ @updates.push($_.split(",")) });

say @updates;