X-Git-Url: https://www.fi.muni.cz/~kas/git//home/kas/public_html/git/?a=blobdiff_plain;f=20.pl;fp=20.pl;h=09210e2df1d4c123c5a49e8521aa0b7a164686e7;hb=26c4c3c6792bf77be7b33a4f892a72c7f23c45e1;hp=0000000000000000000000000000000000000000;hpb=a3b0fa8b4631ecc584d9b2c52495260b3849749b;p=aoc.git

diff --git a/20.pl b/20.pl
new file mode 100755
index 0000000..09210e2
--- /dev/null
+++ b/20.pl
@@ -0,0 +1,26 @@
+#!/usr/bin/perl -w
+
+use strict;
+use Data::Dumper;
+
+local $/;
+my @ads = sort { $a <=> $b } map { chomp; $_ } split /\n/, <>;
+
+my $prev = 0;
+my $ones = 0;
+my $total = 1;
+my @ones2count = qw(1 1 2 4 7);
+push @ads, $ads[-1]+3;
+for my $n (@ads) {
+	if ($n - $prev == 1) {
+		$ones++;
+	} else {
+		print "$ones ones + 3, total=$total*$ones2count[$ones]\n";
+		$total *= $ones2count[$ones];
+		$ones = 0;
+	}
+	$prev = $n;
+}
+
+print "total=$total\n";
+