Day 15: not so complicated

[aoc.git] / 2023 / 29.pl

diff --git a/2023/29.pl b/2023/29.pl
new file mode 100755 (executable)
index 0000000..a605892
--- /dev/null
+++ b/2023/29.pl
@@ -0,0 +1,18 @@
+#!/usr/bin/perl -w
+
+use v5.38;
+
+chomp (my $line = <>);
+
+my $sum;
+for (split /,/, $line) {
+       my $n = 0;
+       for (split //) {
+               $n += ord;
+               $n *= 17;
+               $n %= 256;
+       }
+       $sum += $n;
+}
+say $sum;
+