19.pl

   1 #!/usr/bin/perl -w
   2
   3 use strict;
   4
   5 local $/;
   6 my @ads = sort { $a <=> $b } map { chomp; $_ } split /\n/, <>;
   7
   8 my $prev = 0;
   9 my %diffs;
  10 for my $n (@ads) {
  11         $diffs{ $n - $prev }++;
  12         $prev = $n;
  13 }
  14 $diffs{3}++;
  15
  16 print $diffs{1} * $diffs{3}, "\n";