]> www.fi.muni.cz Git - aoc.git/blobdiff - 2015/23.pl
Year 2015
[aoc.git] / 2015 / 23.pl
diff --git a/2015/23.pl b/2015/23.pl
new file mode 100755 (executable)
index 0000000..8e5c819
--- /dev/null
@@ -0,0 +1,13 @@
+#!/usr/bin/perl -w
+
+use v5.16;
+use strict;
+
+$/ = undef;
+$_ = <>;
+
+my $sum;
+while (/-?\d+/g) {
+       $sum += $&;
+}
+say $sum;