提出 #575835

ソースコード 拡げる

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;
}

提出情報

提出日時
問題 B - 運動管理
ユーザ dellfuku
言語 Perl (5.14.2)
得点 100
コード長 334 Byte
結果 AC
実行時間 27 ms
メモリ 1060 KiB

コンパイルエラー

./Main.pl syntax OK

ジャッジ結果

セット名 Sample All
得点 / 配点 0 / 0 100 / 100
結果
AC × 2
AC × 20
セット名 テストケース
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
ケース名 結果 実行時間 メモリ
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