Submission #110207

---

Source Code Expand

#!/usr/bin/perl
use 5.010;

my $n = <>;
my @list;

for(my $i=0;$i<$n;$i++){
    $list[$i] = <>;
    chomp($list[$i]);
    if($list[$i] =~ /(\d{2})(\d{2})-(\d{2})(\d{2})/){
        my $sh = $1;
        my $sm = $2;
        my $s = int(($sh*60 + $sm)/5)*5;
        $sh = int($s / 60);
        $sm = $s % 60;
        my $eh = $3;
        my $em = $4;
        my $e = int(($eh*60 + $em + 4)/5)*5;
        $eh = int($e / 60);
        $em = $e % 60;
        $list[$i] = sprintf("%02d",$sh).sprintf("%02d",$sm)."-".sprintf("%02d",$eh).sprintf("%02d",$em);
    }
}

# sort
@list = sort {$a cmp $b} @list;

# check overlap
my $start = 1;
while(1){
    my $overlapped = 0;

    my $last;
    for(my $i=$start;$i<=$#list;$i++){
        my $last_hm;
        if($list[$i-1] =~ /-(\d{4})/){
            $last_ehm = $1;
        }
        if($list[$i] =~ /^(\d{4})-(\d{4})/){
            $now_shm = $1;
            $now_ehm = $2;
        }
#        say $i.":".$last_ehm." - ".$now_shm;
        if($last_ehm >= $now_shm){
            splice @list,$i,1;
            if($last_ehm >= $now_ehm){
            }else{
                $list[$i-1] =~ s/\d{4}$/$now_ehm/;
            }
            $overlapped = 1;
            last;
        }
        $start = $i;
    }

    if($overlapped == 0){
        last;
    }
}

foreach my $line (@list){
    say $line;
}

Submission Info

Compile Error

./Main.pl syntax OK

Judge Result