Submission #109670

---

Source Code Expand

$n = <>;
@p = (0) x 1441;
while($ent = <>){
    ($h1,$m1,$h2,$m2) = ($ent =~ /^(\d\d)(\d\d)-(\d\d)(\d\d)/);
    $mm1 = int(($h1 * 60 + $m1) / 5);
    $mm2 = int(($h2 * 60 + $m2 + 4) / 5);
    $p[$mm1]++; $p[$mm2]--;
}
$f = 0;
for($i = 0; $i <= 1440; $i++){
    $p[$i] += $p[$i-1] if($i>0);
    if(!$f && $p[$i]){
        $s = $i; $f = 1;
    }
    if($f && !$p[$i]){
        printf("%02d%02d-%02d%02d\n", ($s*5)/60,($s*5)%60,($i*5)/60,($i*5)%60); $f = 0;
    }
}

Submission Info

Compile Error

Name "main::n" used only once: possible typo at ./Main.pl line 1.
./Main.pl syntax OK

Judge Result