Problem:
青春の片道切符

太郎君は夏休みに電車で長旅をする計画を立てています。しかし高校生の身である太郎君が一ヵ月しかない夏休みで可能な限り遠くに旅をするには、出来るだけ安い行き方と出来るだけ早い行き方をそれぞれ見つけなければうまく計画が立てられません。太郎君が素敵な旅を満喫できるように、太郎君の計画の助けになるプログラムを作ってあげましょう。

線路の情報、駅の数を入力とし、問い合わせに応じて、最小金額または最短時間を出力するプログラムを作成してください。

Input

複数のデータセットの並びが入力として与えられます。入力の終わりはゼロふたつの行で示されます。各データセットは以下の形式で与えられます。

n m
a1 b1 cost1 time1
a2 b2 cost2 time2
:
an bn costn timen
k
p1 q1 r1
p2 q2 r2
:
pk qk rk

1 行目に線路の情報の数 n (1 ≤ n ≤ 3000)と駅の数 m (1 ≤ m ≤ 100) が与えられます。

続く n 行に i 番目の路線の情報が与えられます。各路線の情報として、路線がつなぐ２つの駅の番号 ai, bi (1 ≤ ai, bi ≤ m)、料金 costi (1 ≤ costi ≤ 1000)、移動時間 timei (1 ≤ timei ≤ 1000) が与えられます。ただし、各駅は 1 から m まで順番に番号が付けられているものとします。
なお、ai と bi が線路でつながっていれば、ai から bi、 bi からai の両方の移動が同じ料金と時間で可能とします。

続く行に問い合わせの数 k (1 ≤ k ≤ 200) が与えられます。続く k 行に i 番目の問い合わせが与えられます。各問合わせとして、出発駅 pi 、到着駅 qi 、出力する値の種類 ri (0 または 1)が与えられます。なお、問い合わせには必ず経路があるものとします。

データセットの数は 50 を超えない。

Output

データセットごとに、最小金額もしくは最短時間を１行に出力します。ri が 0 の時は最小金額を、 1 の時は最短時間を出力します。

Sample Input

6 5
1 2 200 10
1 4 400 15
1 3 250 25
2 4 100 10
4 5 150 20
3 5 300 20
2
1 5 0
1 5 1
0 0

Output for the Sample Input

450
35

Solution in Ruby (judge verdict: Time Limit Exceeded)

Infinity = 1000000

def dijkstra graph, s, d
  #initialize
  n = graph.size
  q = Array.new
  n.times do |u|
    q << [u, graph[s][u]]
  end

  while ! q.empty?
    #そこまでのコストが最も小さい節点を選択する
    min = Infinity
    minIndex = -1
    q.size.times do |i|
      if q[i][1] < min
        min = q[i][1]
        minIndex = i
      end
    end
    node = q.delete_at(minIndex)
    u = node[0]
    w = node[1]
    if u == d
      return graph[s][d]
    end
    #そこからコストが更新できる節点を更新する
    n.times do |v|
      next if graph[u][v] == Infinity
      newLength = w + graph[u][v]
      if newLength < graph[s][v]
        q << [v, newLength]
        graph[s][v] = newLength
      end
    end
  end
end

loop do
  #入力値で初期化
  n,m = $stdin.gets.chomp.split(" ").map(&:to_i)
  break if (n|m) == 0
  graphMoney = Array.new(m).map{Array.new(m, Infinity)}
  graphTime = Array.new(m).map{Array.new(m, Infinity)}
  m.times do |u|
    graphMoney[u][u] = 0
    graphTime[u][u] = 0
  end
  #線路情報からグラフ生成
  n.times do
    a,b,cost,time = $stdin.gets.chomp.split(" ").map(&:to_i)
    graphMoney[a - 1][b - 1] = cost
    graphMoney[b - 1][a - 1] = cost
    graphTime[a - 1][b - 1] = time
    graphTime[b - 1][a - 1] = time
  end

  $stdin.gets.to_i.times do
    p,q,r = $stdin.gets.chomp.split(" ").map(&:to_i)
    case r
    when 0
      p dijkstra(graphMoney, p - 1, q - 1)
    when 1
      p dijkstra(graphTime, p - 1, q - 1)
    end
  end
end