Submission #2229931

Source Code Expand

@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 AC
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
AC × 1
AC × 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 AC 3 ms 512 KB
subtask_01_01.txt AC 281 ms 19072 KB
subtask_01_02.txt AC 11 ms 7552 KB
subtask_01_03.txt AC 433 ms 30848 KB
subtask_01_04.txt AC 480 ms 33792 KB
subtask_01_05.txt AC 35 ms 2688 KB
subtask_01_06.txt AC 41 ms 8960 KB
subtask_01_07.txt AC 457 ms 30592 KB
subtask_01_08.txt AC 467 ms 33792 KB
subtask_01_09.txt AC 2 ms 512 KB
subtask_01_10.txt AC 11 ms 7552 KB
subtask_01_11.txt AC 448 ms 30720 KB
subtask_01_12.txt AC 493 ms 33792 KB
subtask_01_13.txt AC 359 ms 24448 KB
subtask_01_14.txt AC 12 ms 7552 KB
subtask_01_15.txt AC 438 ms 30592 KB
subtask_01_16.txt AC 472 ms 33792 KB
subtask_01_17.txt AC 767 ms 35584 KB
subtask_01_18.txt AC 554 ms 33536 KB