#374207 (Perl) No.872 All Tree Path

• 問題: No.872 All Tree Path
• ユーザー: tails
• 提出日時: 2019-08-30 22:56:13
• 言語: Perl (5.38.2)
• 結果: AC
• 実行時間: 1,398 ms / 3,000 ms
• コード長: 321 bytes
• コンパイル時間: 285 ms
• コンパイル使用メモリ: 5,456 KB
• 実行使用メモリ: 384,624 KB
• 最終ジャッジ日時: 2023-08-14 07:11:27
• 合計ジャッジ時間: 11,721 ms
• ジャッジサーバーID （参考情報）: judge11 / judge15

入力	結果	実行時間; 実行使用メモリ
testcase_00	AC	1,183 ms; 135,044 KB
testcase_01	AC	1,176 ms; 135,360 KB
testcase_02	AC	1,186 ms; 135,244 KB
testcase_03	AC	1,398 ms; 384,624 KB
testcase_04	AC	3 ms; 4,536 KB
testcase_05	AC	1,178 ms; 135,196 KB
testcase_06	AC	1,187 ms; 135,252 KB
testcase_07	AC	1,191 ms; 135,132 KB
testcase_08	AC	95 ms; 17,788 KB
testcase_09	AC	94 ms; 17,820 KB
testcase_10	AC	92 ms; 17,856 KB
testcase_11	AC	94 ms; 17,784 KB
testcase_12	AC	101 ms; 17,756 KB
testcase_13	AC	3 ms; 4,648 KB
testcase_14	AC	3 ms; 4,720 KB
testcase_15	AC	3 ms; 4,548 KB
testcase_16	AC	3 ms; 4,564 KB
testcase_17	AC	3 ms; 4,588 KB
testcase_18	AC	2 ms; 4,732 KB
testcase_19	AC	2 ms; 4,592 KB

コンパイルメッセージ

Main.pl syntax OK

ソースコード

$n=<>;
for(<>){
	($u,$v,$w)=split;
	--$u;
	--$v;
	push@$u,$v<<8|$w;
	push@$v,$u<<8|$w;
}
sub f{
	my($x,$y)=@_;
	#$vis[$x]=1;
	vec($vis,$x,1)=1;
	for(@$x){
		my$z=$_>>8;
		my$w=$_&255;
		#if(!$vis[$z]){
		if(!vec($vis,$z,1)){
			my$y1=f($z);
			$a+=$w*$y1*($n-$y1)*2;
			$y+=$y1;
		}
	}
	$y+1;
}
#f(0);
f($n-1);
print $a;