2024/01/raku.raku


1
2
3
4
5

#!/usr/bin/env raku

my $ids := ([Z] lines>>.words)>>.sort>>.list;
say "silver: ", ([Z-] $ids)>>.abs.sum;
say "gold: ", ([<<*>>] $ids>>.Bag).kxxv.sum;