提出 #22915507

ソースコード 拡げる

sub a{my$x=-pop;$$x=$x-$$x&&$$x?a(-$$x):$x}<>;/ .* />$`?${a$'}=a$&:print a($&)-a($')?No:Yes,$/for<>

提出情報

提出日時
問題 B - Union Find
ユーザ kotatsugame
言語 Perl (5.26.1)
得点 100
コード長 99 Byte
結果 AC
実行時間 1167 ms
メモリ 64448 KiB

コンパイルエラー

./Main.pl syntax OK

ジャッジ結果

セット名 Sample All
得点 / 配点 0 / 0 100 / 100
結果
AC × 1
AC × 19
セット名 テストケース
Sample 00_sample_01.txt
All 00_sample_01.txt, subtask_01_01.txt, subtask_01_02.txt, subtask_01_03.txt, subtask_01_04.txt, subtask_01_05.txt, subtask_01_06.txt, subtask_01_07.txt, subtask_01_08.txt, subtask_01_09.txt, subtask_01_10.txt, subtask_01_11.txt, subtask_01_12.txt, subtask_01_13.txt, subtask_01_14.txt, subtask_01_15.txt, subtask_01_16.txt, subtask_01_17.txt, subtask_01_18.txt
ケース名 結果 実行時間 メモリ
00_sample_01.txt AC 2 ms 4608 KiB
subtask_01_01.txt AC 244 ms 25580 KiB
subtask_01_02.txt AC 7 ms 4700 KiB
subtask_01_03.txt AC 574 ms 34424 KiB
subtask_01_04.txt AC 563 ms 61280 KiB
subtask_01_05.txt AC 63 ms 6968 KiB
subtask_01_06.txt AC 54 ms 14196 KiB
subtask_01_07.txt AC 331 ms 34392 KiB
subtask_01_08.txt AC 574 ms 61416 KiB
subtask_01_09.txt AC 7 ms 4844 KiB
subtask_01_10.txt AC 3 ms 4684 KiB
subtask_01_11.txt AC 369 ms 34264 KiB
subtask_01_12.txt AC 549 ms 61396 KiB
subtask_01_13.txt AC 284 ms 29120 KiB
subtask_01_14.txt AC 11 ms 5088 KiB
subtask_01_15.txt AC 338 ms 34420 KiB
subtask_01_16.txt AC 565 ms 61288 KiB
subtask_01_17.txt AC 652 ms 64448 KiB
subtask_01_18.txt AC 1167 ms 61868 KiB