結果

問題 No.34 砂漠の行商人
コンテスト
ユーザー むらため
提出日時 2018-12-16 03:15:53
言語 Nim
(2.2.0)
結果
CE  
(最新)
AC  
(最初)
実行時間 -
コード長 1,900 bytes
コンパイル時間 854 ms
コンパイル使用メモリ 68,328 KB
最終ジャッジ日時 2024-11-14 20:42:52
合計ジャッジ時間 1,264 ms
ジャッジサーバーID
（参考情報） 		judge2 / judge3
このコードへのチャレンジ
（要ログイン）
コンパイルエラー時のメッセージ・ソースコードは、提出者また管理者しか表示できないようにしております。（リジャッジ後のコンパイルエラーは公開されます）
ただし、clay言語の場合は開発者のデバッグのため、公開されます。

コンパイルメッセージ
/home/judge/data/code/Main.nim(1, 61) Error: cannot open file: queues

ソースコード

diff # 

import sequtils,strutils,strscans,algorithm,math,sugar,sets,queues,tables,macros
macro unpack*(rhs: seq,cnt: static[int]): auto =
  let t = genSym(); result = quote do:(let `t` = `rhs`;())
  for i in 0..<cnt: result[1].add(quote do:`t`[`i`])
template get*():string = stdin.readLine()
template times*(n:int,body:untyped): untyped = (for _ in 0..<n: body)
template `max=`*(x,y:typed):void = x = max(x,y)
template `min=`*(x,y:typed):void = x = min(x,y)

proc transpose*[T](mat:seq[seq[T]]):seq[seq[T]] =
  result = newSeqWith(mat[0].len,newSeq[T](mat.len))
  for x,xs in mat: (for y,ys in xs:result[y][x] = mat[x][y])
const dxdy4 :seq[tuple[x,y:int]] = @[(0,1),(1,0),(0,-1),(-1,0)]

proc getchar_unlocked():char {. importc:"getchar_unlocked",header: "<stdio.h>" .}
template scan1[T](): T =
  var result : T = 0
  while true:
    var k = getchar_unlocked()
    if k < '0' or k > '9': break
    result = k.ord - '0'.ord
  result


let
  (N,V,sx,sy,gx,gy) = get().split().map(parseInt).unpack(6)
const INF = int.high div 4
var L : array[101,array[101,int]]
var cost : array[101,array[101,int]]
for y in 0..<N:
  for x in 0..<N:
    L[x][y] = scan1[int]()
    cost[x][y] = INF

# 幅優先でよい
proc seek(sx,sy:int, L:auto,diffSeq:seq[tuple[x,y:int]]):auto =
  type field = tuple[x,y,v,c:int]
  let (W,H) = (N,N)
  var opens = initQueue[field]()
  opens.enqueue((sx,sy,0,0))
  cost[sx][sy] = 0
  while opens.len() > 0:
    let (x,y,v,c) = opens.dequeue()
    if cost[x][y] < v : continue
    for d in diffSeq:
      let (nx,ny) = (d.x + x,d.y + y)
      if nx < 0 or ny < 0 or nx >= W or ny >= H : continue
      var n_v = v + L[nx][ny]
      if n_v >= V : continue
      if nx == gx-1 and ny == gy-1:
        echo c+1
        quit()
      if n_v < cost[nx][ny] :
        cost[nx][ny] = n_v
        opens.enqueue((nx,ny,n_v,c+1))

seek(sx-1,sy-1,L,dxdy4)
echo -1

# Sxy => Gxy 死なずに最も早く()
0