提出 #14231106

ソースコード 拡げる

my ($a, $v) = glob <>;
my ($b, $w) = glob <>;
my $t = <>;

if ($b > $a) {
    print(($a + $v * $t >= $b + $w * $t) ? 'YES' : 'NO');
}
elsif ($a > $b) {
    print(($a - $v * $t <= $b - $w * $t) ? 'YES' : 'NO');
}

提出情報

提出日時
問題 B - Tag
ユーザ keisuke495500
言語 Perl (5.26.1)
得点 200
コード長 220 Byte
結果 AC
実行時間 13 ms
メモリ 5324 KiB

コンパイルエラー

./Main.pl syntax OK

ジャッジ結果

セット名 Sample All
得点 / 配点 0 / 0 200 / 200
結果
AC × 3
AC × 20
セット名 テストケース
Sample sample01.txt, sample02.txt, sample03.txt
All sample01.txt, sample02.txt, sample03.txt, in01.txt, in02.txt, in03.txt, in04.txt, in05.txt, in06.txt, in07.txt, in08.txt, in09.txt, in10.txt, in11.txt, in12.txt, in13.txt, in14.txt, sample01.txt, sample02.txt, sample03.txt
ケース名 結果 実行時間 メモリ
in01.txt AC 9 ms 5084 KiB
in02.txt AC 11 ms 5140 KiB
in03.txt AC 7 ms 5276 KiB
in04.txt AC 13 ms 5264 KiB
in05.txt AC 8 ms 5324 KiB
in06.txt AC 9 ms 5120 KiB
in07.txt AC 12 ms 5256 KiB
in08.txt AC 7 ms 5060 KiB
in09.txt AC 11 ms 5264 KiB
in10.txt AC 9 ms 5136 KiB
in11.txt AC 6 ms 5220 KiB
in12.txt AC 8 ms 5116 KiB
in13.txt AC 7 ms 5080 KiB
in14.txt AC 9 ms 5128 KiB
sample01.txt AC 8 ms 5308 KiB
sample02.txt AC 8 ms 5076 KiB
sample03.txt AC 9 ms 5152 KiB