Submission #6017554

---

Source Code Expand

$n=<>;@T;$#T=$n;
$T[$_]=<>for(0..$n-1);
@T=sort{$a cmp $b}@T;
# print@T;
for(@T){
    ($s,$e)=split/-/,$_;
    $s-=$s%5;
    $e+=(5-$e%5)%5;
    $e=($e%100==60)?$e+40:$e;
    $nows//=$s;
    $nowe//=$e;
    if($nowe<$s){
        $out=sprintf("%04d-%04d\n",$nows,$nowe);
        print "$out";
        $nows=$s;
        $nowe=$e;
    }else{
        $nowe=$e if $nowe<$e
    }
}
$out=sprintf("%04d-%04d\n",$nows,$nowe);
print "$out";

Submission Info

Compile Error

Useless use of a variable in void context at ./Main.pl line 1.
./Main.pl syntax OK

Judge Result