提出 #2229931


ソースコード 拡げる

Copy
@p=0..<>-1;
sub f{my$i=pop;
	$p[$i]!=$i?$p[$i]=f($p[$i]):$i
}
for(<>){
	/ .* /;
	f($&);
	f($');
	if($`){
		print$p[$&]==$p[$']?Yes:No,$/
	}else{
		$p[$&]=$p[$']
	}
}

提出情報

提出日時
問題 B - Union Find
ユーザ x20
言語 Perl (v5.18.2)
得点 100
コード長 180 Byte
結果
実行時間 767 ms
メモリ 35584 KB

コンパイルエラー

./Main.pl syntax OK

ジャッジ結果

セット名 Sample All
得点 / 配点 0 / 0 100 / 100
結果
× 1
× 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 3 ms 512 KB
subtask_01_01.txt 281 ms 19072 KB
subtask_01_02.txt 11 ms 7552 KB
subtask_01_03.txt 433 ms 30848 KB
subtask_01_04.txt 480 ms 33792 KB
subtask_01_05.txt 35 ms 2688 KB
subtask_01_06.txt 41 ms 8960 KB
subtask_01_07.txt 457 ms 30592 KB
subtask_01_08.txt 467 ms 33792 KB
subtask_01_09.txt 2 ms 512 KB
subtask_01_10.txt 11 ms 7552 KB
subtask_01_11.txt 448 ms 30720 KB
subtask_01_12.txt 493 ms 33792 KB
subtask_01_13.txt 359 ms 24448 KB
subtask_01_14.txt 12 ms 7552 KB
subtask_01_15.txt 438 ms 30592 KB
subtask_01_16.txt 472 ms 33792 KB
subtask_01_17.txt 767 ms 35584 KB
subtask_01_18.txt 554 ms 33536 KB