結果

問題 No.34 砂漠の行商人
コンテスト
ユーザー te-sh
提出日時 2017-01-17 14:31:55
言語 D
(dmd 2.109.1)
結果
AC  
実行時間 18 ms / 5,000 ms
コード長 1,524 bytes
コンパイル時間 854 ms
コンパイル使用メモリ 109,292 KB
実行使用メモリ 5,632 KB
最終ジャッジ日時 2024-06-12 06:27:11
合計ジャッジ時間 1,990 ms
ジャッジサーバーID
（参考情報） 		judge1 / judge2
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
other AC * 26
権限があれば一括ダウンロードができます

ソースコード

diff # 

import std.algorithm, std.conv, std.range, std.stdio, std.string;
import std.container; // SList, DList, BinaryHeap

void main()
{
  auto rd = readln.split;
  auto n = rd[0].to!size_t, v = rd[1].to!size_t;
  auto sx = rd[2].to!int - 1, sy = rd[3].to!int - 1;
  auto gx = rd[4].to!int - 1, gy = rd[5].to!int - 1;
  auto lij = n.iota.map!(_ => readln.split.to!(int[])).array;

  auto eij = new Edge!int[][](n ^^ 2);
  foreach (j; n.iota)
    foreach (i; n.iota) {
      auto p = point(j.to!int, i.to!int);
      foreach (sib; sibPoints) {
        auto np = p + sib;
        if (np.x >= 0 && np.y >= 0 && np.x < n && np.y < n)
          eij[p.x + p.y * n] ~= Edge!int(np.x + np.y * n, lij[np.y][np.x]);
      }
    }

  auto s = sx + sy * n;
  auto g = gx + gy * n;

  int calc()
  {
    auto qi = [s];
    auto dp = new int[](n ^^ 2);
    dp[] = -1;
    dp[s] = 0;

    for (auto r = 1; !qi.empty; ++r) {
      size_t[] ri;
      foreach (q; qi) {
        foreach (e; eij[q]) {
          auto nv = dp[q] + e.w;
          if (nv < v && (dp[e.v] < 0 || dp[e.v] > nv)) {
            if (e.v == g) return r;
            dp[e.v] = nv;
            ri ~= e.v;
          }
        }
      }
      qi = ri;
    }

    return -1;
  }

  writeln(calc);
}

struct Edge(T) {
  size_t v;
  T w;
}

struct Point(T) {
  T x, y;

  point opBinary(string op)(point rhs) {
    static if (op == "+") return point(x + rhs.x, y + rhs.y);
  }
}

alias Point!int point;

const auto sibPoints = [point(-1, 0), point(0, -1), point(1, 0), point(0, 1)];
0