25.pl

   1 #!/usr/bin/perl -w
   2
   3 use strict;
   4
   5 my $timestamp = <>;
   6 my @buses = grep { /\d+/ } split /,/, <>;
   7
   8 my ($min_del, $min_bus);
   9 for my $bus (@buses) {
  10         my $delay = $bus*(1+int(($timestamp-1)/$bus))-$timestamp;
  11         print "Bus $bus delay $delay\n";
  12         if (!defined $min_del || $min_del > $delay) {
  13                 $min_bus = $bus;
  14                 $min_del = $delay;
  15         }
  16 }
  17
  18 print "$min_bus * $min_del = ", $min_bus * $min_del, "\n";
  19