AOC 2024

day1.pl

#!/usr/bin/perl -pl

BEGIN {
  my @ll, @rl;
  my $sum, $sim;
}

END {
  my ($sl, $sr) = ([sort {$a <=> $b} @ll], [sort {$a <=> $b} @rl]);
  for ($x=0; $x<=$#ll; $x++) {
    $sum += abs($sl->[$x] - $sr->[$x]);
    $sim += $ll[$x] * scalar grep {$_ == $ll[$x]} @$sr;
  }
  print "Distance: $sum\tSimilarity: $sim";
}

($ll[$.-1], $rl[$.-1]) = split(/\s+/, $_);