結果
| 問題 | No.17 2つの地点に泊まりたい |
| コンテスト | |
| ユーザー |
 letrangerjp
|
| 提出日時 | 2017-06-05 20:23:25 |
| 言語 | Perl (5.42.1) |
| 結果 |
AC
|
| 実行時間 | 49 ms / 5,000 ms |
| + 681µs | |
| コード長 | 251 bytes |
| 記録 | |
| コンパイル時間 | 179 ms |
| コンパイル使用メモリ | 5,888 KB |
| 実行使用メモリ | 6,400 KB |
| 最終ジャッジ日時 | 2026-07-17 04:21:35 |
| 合計ジャッジ時間 | 2,247 ms |
|
ジャッジサーバーID （参考情報） |
judge1_0 / judge3_0 |
（要ログイン）
| ファイルパターン | 結果 |
|---|---|
| other | AC * 28 |
コンパイルメッセージ
Main.pl syntax OK
ソースコード
$M=<>-1;/ (.*) /?$%{$1}{$`}=$%{$`}{$1}=$':push@@,$_ for<>;for$k(@T=0..$M){for$i(@T){$%{$i}{$_}||=$\=9e9,$%{$i}{$_}-=$-=$%{$i}{$_}-$%{$k}{$i}-$%{$k}{$_}for@T}}for$i(@R=1..$M-1){$i-$_&&($\-=$-=$\-$@[$i]-$@[$_]-$%{0}{$i}-$%{$i}{$_}-$%{$_}{$M})for@R}print