#159283 (Perl) No.496 ワープクリスタル (給料日前編)

• 問題: No.496 ワープクリスタル (給料日前編)
• ユーザー: tails
• 提出日時: 2017-03-24 22:40:37
• 言語: Perl (5.38.2)
• 結果: WA
• 実行時間: -
• コード長: 283 bytes
• コンパイル時間: 410 ms
• コンパイル使用メモリ: 6,016 KB
• 実行使用メモリ: 7,552 KB
• 最終ジャッジ日時: 2024-07-05 22:04:15
• 合計ジャッジ時間: 3,805 ms
• ジャッジサーバーID （参考情報）: judge1 / judge3

入力	結果	実行時間; 実行使用メモリ
testcase_00	AC	7 ms; 5,888 KB
testcase_01	AC	7 ms; 5,888 KB
testcase_02	AC	8 ms; 6,016 KB
testcase_03	AC	8 ms; 5,888 KB
testcase_04	WA	-
testcase_05	AC	8 ms; 5,888 KB
testcase_06	AC	33 ms; 7,424 KB
testcase_07	AC	7 ms; 5,888 KB
testcase_08	AC	410 ms; 7,424 KB
testcase_09	AC	399 ms; 7,424 KB
testcase_10	AC	11 ms; 6,016 KB
testcase_11	AC	11 ms; 5,888 KB
testcase_12	AC	22 ms; 6,016 KB
testcase_13	AC	33 ms; 6,144 KB
testcase_14	AC	62 ms; 6,400 KB
testcase_15	WA	-
testcase_16	WA	-
testcase_17	WA	-
testcase_18	AC	68 ms; 6,784 KB
testcase_19	WA	-
testcase_20	AC	51 ms; 7,040 KB
testcase_21	AC	22 ms; 6,016 KB
testcase_22	WA	-
testcase_23	AC	281 ms; 7,424 KB
testcase_24	AC	284 ms; 7,424 KB
testcase_25	AC	278 ms; 7,424 KB
testcase_26	AC	282 ms; 7,424 KB

コンパイルメッセージ

Name "main::n" used only once: possible typo at Main.pl line 1.
Main.pl syntax OK

ソースコード

($gx,$gy,$n,$f)=glob<>;
@a=map[glob],<>,"0 1 $f","1 0 $f";
for$y(0..$gy){
	for$x(0..$gx){
		$d{$y,$x}=$x+$y?1e9:0;
		for(@a){
			($xi,$yi,$ci)=@$_;
			$xs=$x-$xi;
			$ys=$y-$yi;
			$d{$y,$x}=$d{$ys,$xs}+$ci if $ys>=0 && $xs>=0 && $d{$y,$x}>$d{$ys,$xs}+$ci;
		}
	}
}
print$d{$gy,$gx}