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=0000000000000000000000000000000000000000;hb=0f645c8775e82e82b530efb47b1a2e1ee4f5c848;hp=09210e2df1d4c123c5a49e8521aa0b7a164686e7;hpb=a6e8d2a482d94b74862c768a6e757deba0520795;p=aoc.git

diff --git a/20.pl b/20.pl
deleted file mode 100755
index 09210e2..0000000
--- a/20.pl
+++ /dev/null
@@ -1,26 +0,0 @@
-#!/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";
-