blob: a13cf5a69234dcba96b3097700f126cc92a85080 (
plain)
1
2
3
4
5
6
7
8
9
10
|
#!/usr/bin/env raku
my (@rs, @us) := slurp.split("\n\n")>>.lines;
sub mid(@u) {
my @s = @u.sort({ "$^a|$^b" !(elem) @rs });
return (@u Z== @s).all.so ?? ($_, 0) !! (0, $_) with @s[@s/2];
}
(("silver: ", "gold: ") Z~ [Z+] @us>>.split(",").map(&mid)).map(&say);
|
