Year 2018

[aoc.git] / 2018 / 02.pl

diff --git a/2018/02.pl b/2018/02.pl
new file mode 100755 (executable)
index 0000000..b90441f
--- /dev/null
+++ b/2018/02.pl
@@ -0,0 +1,20 @@
+#!/usr/bin/perl -w
+
+use v5.30;
+use strict;
+
+my %seen;
+my $freq = 0;
+chomp(my @changes = <>);
+while (1) {
+       for my $x (@changes) {
+               $freq += $x;
+               if ($seen{$freq}++) {
+                       say $freq;
+                       exit 0;
+               }
+       }
+}
+
+
+