AtCoder Typical Contest 001

Submission #2229931

Source codeソースコード

@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

Task問題 B - Union Find
User nameユーザ名 %20
Created time投稿日時
Language言語 Perl (v5.18.2)
Status状態 AC
Score得点 100
Source lengthソースコード長 180 Byte
File nameファイル名
Exec time実行時間 767 ms
Memory usageメモリ使用量 35584 KB

Compiler messageコンパイルメッセージ

./Main.pl syntax OK

Test case

Set

Set name Score得点 / Max score Cases
Sample - 00_sample_01.txt
All 100 / 100 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

Test case

Case name Status状態 Exec time実行時間 Memory usageメモリ使用量
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