AoC2024, day 1
# https://adventofcode.com/2024/day/1
my ($L, $R) = (.[*;0], .[*;1]).map(*.sort.Array) with $*IN.lines».words;
put 'part 1: ', ($L «-« $R)».abs.sum;
put 'part 2: ', $L.map({ $_ * $R.Bag{$_} }).sum;INFO
# https://adventofcode.com/2024/day/1
my ($L, $R) = (.[*;0], .[*;1]).map(*.sort.Array) with $*IN.lines».words;
put 'part 1: ', ($L «-« $R)».abs.sum;
put 'part 2: ', $L.map({ $_ * $R.Bag{$_} }).sum;