Submission #2229931


Source Code Expand

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[$']
	}
}

Submission Info

Submission Time
Task B - Union Find
User x20
Language Perl (v5.18.2)
Score 100
Code Size 180 Byte
Status
Exec Time 767 ms
Memory 35584 KB

Compile Error

./Main.pl syntax OK

Judge Result

Set Name Sample All
Score / Max Score 0 / 0 100 / 100
Status
× 1
× 19
Set Name Test Cases
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
Case Name Status Exec Time Memory
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