2023/11.pl

   1 #!/usr/bin/perl -w
   2
   3 use v5.38;
   4
   5 my @times =<>=~ /(\d+)/g;
   6 my @dists =<>=~ /(\d+)/g;
   7
   8 my $res = 1;
   9 while (@times) {
  10         my $t = shift @times;
  11         my $d = shift @dists;
  12         my $n;
  13         for my $t1 (1 .. $t-1) {
  14                 my $d1 = ($t-$t1)*$t1;
  15                 $n++ if ($d1 > $d);
  16         }
  17         $res *= $n;
  18 }
  19
  20 say $res;