6 my @buses = split /,/, <>;
10 my $first = shift @buses;
11 for my $bus (@buses) {
13 $bus_time{$bus} = $mins % $bus;
14 print "Bus $bus at t+$mins ($bus_time{$bus})\n";
19 @buses = grep /\d/, @buses;
24 for my $bus (keys %bus_time) {
25 print "bus $bus at $bus_time{$bus}\n";
27 print "t=$t, add=$add\n";
28 last if ($t + $bus_time{$bus}) % $bus == 0;