Submission #359218

---

Source Code Expand

use strict;
use warnings;

my $n = <STDIN>;
my @record;
for (my $i = 0; $i < $n; $i++) {
    my ($start, $end) = map(int, split(/-/, <STDIN>));
    my $starttemp = int($start / 10) * 10;
    if ($starttemp + 5 <= $start) { $starttemp += 5; }
    my $endtemp = int($end / 10 + 0.9) * 10;
    if ($endtemp - 5 >= $end) { $endtemp -= 5; }
    if ($endtemp % 100 == 60) { $endtemp += 40; }
    push(@record, [$starttemp, 1]);
    push(@record, [$endtemp, -1]);
}

@record = sort({@$a[0] <=> @$b[0] || @$b[1] <=> @$a[1]} @record);

my $count = 0;
foreach my $d (@record) {
    if ($count == 0) {
	printf("%.4d-", @$d[0]);
    }
    $count += @$d[1];
    if ($count == 0) {
	printf("%.4d\n", @$d[0]);
    }
}

Submission Info

Compile Error

./Main.pl syntax OK

Judge Result