7 my @ads = sort { $a <=> $b } map { chomp; $_ } split /\n/, <>;
12 my @ones2count = qw(1 1 2 4 7);
13 push @ads, $ads[-1]+3;
15 if ($n - $prev == 1) {
18 print "$ones ones + 3, total=$total*$ones2count[$ones]\n";
19 $total *= $ones2count[$ones];
25 print "total=$total\n";