path: root/aoc/2021/07/part-one.raku

my @input = map +*, split ',', trim slurp 'input';
sub cost($align) { [+] map { abs $align - $_ }, @input }
put min (cost $_ for (min @input)...(max @input))