Submission #575835

Source Code Expand

my $input = <STDIN>;
chomp($input);
my ($L, $H) = split(/ /, $input);

my $N = <STDIN>;
chomp($N);

while ($N > 0) {
    my $A = <STDIN>;
    chomp($A);

    if ($A < $L) {
        print $L - $A . "\n";
    } elsif ($A >= $L && $A <= $H) {
        print "0\n";
    } else {
        print "-1\n";
    }
    --$N;
}

Submission Info

Submission Time
Task B - 運動管理
User dellfuku
Language Perl (5.14.2)
Score 100
Code Size 334 Byte
Status AC
Exec Time 27 ms
Memory 1060 KiB

Compile Error

./Main.pl syntax OK

Judge Result

Set Name Sample All
Score / Max Score 0 / 0 100 / 100
Status
AC × 2
AC × 20
Set Name Test Cases
Sample sample-01.txt, sample-02.txt
All test-01.txt, test-02.txt, test-03.txt, test-04.txt, test-05.txt, test-06.txt, test-07.txt, test-08.txt, test-09.txt, test-10.txt, test-11.txt, test-12.txt, test-13.txt, test-14.txt, test-15.txt, test-16.txt, test-17.txt, test-18.txt, test-19.txt, test-20.txt
Case Name Status Exec Time Memory
sample-01.txt AC 25 ms 1052 KiB
sample-02.txt AC 24 ms 928 KiB
test-01.txt AC 24 ms 928 KiB
test-02.txt AC 24 ms 1060 KiB
test-03.txt AC 25 ms 936 KiB
test-04.txt AC 24 ms 1060 KiB
test-05.txt AC 24 ms 1056 KiB
test-06.txt AC 24 ms 1056 KiB
test-07.txt AC 24 ms 1052 KiB
test-08.txt AC 26 ms 928 KiB
test-09.txt AC 26 ms 1020 KiB
test-10.txt AC 27 ms 1052 KiB
test-11.txt AC 27 ms 992 KiB
test-12.txt AC 26 ms 1052 KiB
test-13.txt AC 27 ms 928 KiB
test-14.txt AC 24 ms 928 KiB
test-15.txt AC 25 ms 928 KiB
test-16.txt AC 25 ms 932 KiB
test-17.txt AC 25 ms 1056 KiB
test-18.txt AC 27 ms 988 KiB
test-19.txt AC 25 ms 928 KiB
test-20.txt AC 26 ms 1052 KiB