6 my @buses = grep { /\d+/ } split /,/, <>;
8 my ($min_del, $min_bus);
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) {
18 print "$min_bus * $min_del = ", $min_bus * $min_del, "\n";