結果

問題 No.17 2つの地点に泊まりたい
ユーザー むらため
提出日時 2019-01-29 02:36:24
言語 Nim
(2.2.0)
結果
AC  
実行時間 3 ms / 5,000 ms
コード長 924 bytes
コンパイル時間 2,434 ms
コンパイル使用メモリ 62,300 KB
実行使用メモリ 6,944 KB
最終ジャッジ日時 2024-07-01 11:06:02
合計ジャッジ時間 3,433 ms
ジャッジサーバーID
（参考情報） 		judge1 / judge3
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
other AC * 27
権限があれば一括ダウンロードができます

ソースコード

diff # 

import sequtils
template times*(n:int,body) = (for _ in 0..<n: body)
template `min=`*(x,y) = x = min(x,y)
proc getchar_unlocked():char {. importc:"getchar_unlocked",header: "<stdio.h>" .}
proc scan(): int =
  while true:
    let k = getchar_unlocked()
    if k < '0': return
    result = 10 * result + k.ord - '0'.ord

const INF = 1e10.int
let n = scan()
let S = newSeqWith(n,scan())
let m = scan()
var E = newSeqWith(n,newSeqWith(n,INF))
m.times:
  let src = scan()
  let dst = scan()
  let cost = scan()
  E[src][dst] = cost
  E[dst][src] = cost

# ワーシャルフロイド => A->Bの距離がわかる
# A,Bに滞在するとして 0->A->B->Nの最低コストが解
var ans = INF
for k in 0..<n:
  for i in 0..<n:
    for j in 0..<n:
      E[i][j] .min= E[i][k] + E[k][j]

var res = INF
for a in 1..<n-1:
  for b in 1..<n-1:
    if a == b : continue
    ans .min= E[0][a] + E[a][b] + E[b][n-1] + S[a] + S[b]

echo ans
0