Problem:
JOI 国のお祭り事情(Festivals in JOI Kingdom)

JOI 国にはN 個の街があり，それらの間はM 本の双方向に通行可能な道路で結ばれている．国民は道路を通ってそれらの街を移動する．

JOI 国の国民には，お祭りが好きな人が多く，現在，K 個の街でお祭りが開催されており，非常に賑わっている．一方で，一部の国民はお祭りを騒がしいとして嫌い，お祭りにできるだけ近づきたくないと思っている．

そこで国王は，優秀なプログラマーであるあなたに，そのようなお祭りを嫌う国民のため，ある街からある街に移動するために，お祭りが開催されている街にどれだけ近づかずに移動することができるかを高速に調べることのできるプログラムの作成を依頼した．

課題

道路の情報とお祭りが開催されている街の情報，およびQ 個のクエリ（出発する街Si と行きたい街Tiの組）が与えられる．各クエリi に対し，街Si から街Ti へのすべての経路のうち，お祭りまでの距離が最大となる経路の，お祭りまでの距離を求めるプログラムを作成せよ．ただし，ある経路のお祭りまでの距離とは，経路上の街からお祭りが開催されている街までの移動距離の最小値のことである．

制限

2 ≤ N ≤ 100000 (= 105)     JOI 国の街の個数

1 ≤ M ≤ 200000 (= 2 × 105)     JOI 国の道路の本数

1 ≤ K ≤ N     お祭りが開催されている街の個数

1 ≤ Q ≤ 100000 (= 105)     クエリの個数

1 ≤ Li ≤ 1000     i 番目の道路の長さ

入力

標準入力から以下のデータを読み込め．

1 行目には整数N, M, K, Q が空白を区切りとして書かれている．N はJOI 国の街の個数を，M はJOI国の道路の本数を，K はお祭りが開催されている街の個数を，Q はクエリの個数をそれぞれ表す．街には1, 2, ... , N の番号がつけられている．

続くM 行は道路の情報を表す．i + 1 行目(1 ≤ i ≤ M) には整数Ai, Bi, Li (1 ≤ Ai ≤ N, 1 ≤ Bi ≤ N) が空白を区切りとして書かれている．これは，i 番目の道路が街Ai と街Bi を結んでおり，長さがLi であることを表す．道路の両端が同じ街であることはない．また，任意の2 つの街p, q に対し，p とqを結ぶ道路は2 本以上存在しない．どの街からどの街へもいくつかの道路をたどって行くことができる．

続くK 行はお祭りが開催されている街の情報を表す．i + M + 1 行目(1 ≤ i ≤ K) には1 つの整数Fi(1 ≤ Fi ≤ N) が書かれている．これは街Fi でお祭りが開催されていることを表す．F1, ..., FK の中に同じ値が2 回以上現れることはない．

続くQ 行はクエリを表す．i + M + K + 1 行目(1 ≤ i ≤ Q) には2 つの整数Si, Ti (1 ≤ Si ≤ N, 1 ≤ Ti ≤ N, Si ≠ Ti) が空白を区切りとして書かれている．これはi 番目のクエリの出発する街がSi であり行きたい街がTi であることを表す．

出力

標準出力に，全クエリへの答えをQ 行で出力せよ．すなわち，i 行目に，街Si から街Ti へのすべての経路のうち，お祭りまでの距離が最大となる経路の，お祭りまでの距離を表す整数を出力せよ．

採点基準

採点用データのうち，

配点の10% 分については，Q = 1 を満たす．

配点の20% 分については，N ≤ 5000, Q ≤ 5000 を満たす．

配点の30% 分については，これら2 つの条件の少なくとも一方を満たす．また，これら2 つの条件の両方を満たすような採点用データはない．

入出力例

入力例 1

6 6 2 3
1 2 5
2 3 4
2 4 6
3 5 9
4 5 3
5 6 7
1
6
3 4
5 2
1 4

出力例 1

7
5
0

6 つの街が6 本の道路で結ばれており，お祭りは街1, 6 の2 つの街で開催されている．クエリは以下の3 つである．

1 つ目のクエリは街3 から街4 へ行くというものである．街2 を経由する経路ではお祭りまでの距離は5，街5 を経由する経路ではお祭りまでの距離は7 となるため，答えは7 である．

2 つ目のクエリは街5 から街2 へ行くというものである．街3 と街4 のどちらを経由しても，街2 でお祭りまでの距離が最小となり，答えは5 である．

3 つ目のクエリは街1 から街4 へ行くというものである．街1 はお祭りが開催されている街であるため，答えは0 となる．

図1: 入力例1

入力例 2

12 17 2 5
1 3 6
1 6 7
2 3 8
2 4 4
2 8 11
2 12 2
3 6 3
3 7 8
3 11 2
4 12 2
5 10 3
6 10 5
8 9 6
8 12 7
9 10 6
11 9 10
12 9 5
8
7
2 6
5 2
1 10
8 9
9 4

出力例 2

8
8
11
0
6

図1: 入力例2

問題文と自動審判に使われるデータは、情報オリンピック日本委員会が作成し公開している問題文と採点用テストデータです。

Solution in Ruby (judge verdict: Memory Limit Exceeded)

# Constant value
INF = 1000000000

# Edge structure
class Edge
	def initialize(src,dst,cost)
		@src = src
		@dst = dst
		@cost = cost
	end
	def <(another)
		@cost < another.cost
	end
	def <=>(another)
		if @cost < another.cost
			return -1
		end
		if @cost > another.cost
			return 1
		end
		if @cost = another.cost
			return 0
		end
	end
	
	attr_accessor :src, :dst, :cost
end

# SkewHeap for Priority-Queue
class Heap
	class Node
		def initialize(value)
			@left=nil
			@right=nil
			@value=value
		end
		attr_accessor :value,:right,:left
	end
	
	def initialize()
		@size = 0
		@root = nil
	end

	def meld a,b
		if a == nil
			return b
		end
		if( b == nil )
			return a
		end
		if b.value < a.value 
			a,b=b,a
		end
		a.right = meld(a.right,b)
		a.left,a.right=a.right,a.left
		return a
	end
	
	def top
		@root.value
	end
	
	def pop
		@size -= 1
		@root=meld(@root.left,@root.right)
	end

	def push x
		@size += 1
		@root=meld(@root,Node.new(x))
	end
	attr_accessor :size
end

# UnionFind
def root x
	return $ufdata[x] < 0 ? x : ($ufdata[x]=root($ufdata[x]))
end

def merge x,y
	x = root(x)
	y = root(y)
	if x != y
		if $ufdata[y] < $ufdata[x]
			x,y=y,x
		end
		$ufdata[x] += $ufdata[y]
		
		$ufdata[y] = x
	end
	return x != y
end


# Main

n,m,k,qu=gets.split.map(&:to_i)
g = Array.new(n).map!{Array.new}
$ufdata = Array.new(n,-1)
edgarr = []

m.times{
	a,b,c=gets.split.map(&:to_i)
	a-=1
	b-=1
	g[a].push(Edge.new(a,b,c))
	g[b].push(Edge.new(b,a,c))
	edgarr.push(Edge.new(a,b,c))
}


# Dijkstra Part

que = Heap.new()
dijkCost = Array.new(n,INF)
k.times{
	t=gets.to_i
	t-=1
	#puts k
	que.push(Edge.new(t,-1,0))
	dijkCost[t] = 0
}


while que.size != 0
	q = que.top()
	que.pop()
	if dijkCost[q.src] != q.cost
		next
	end
	#puts "#{q.src} = #{q.cost}"
	
	g[q.src].each{|e|
		if dijkCost[q.src]+e.cost < dijkCost[e.dst]
			dijkCost[e.dst] = dijkCost[q.src]+e.cost
			que.push(Edge.new(e.dst,-1,dijkCost[e.dst]))
		end
	}
end

# UFtree-Construction Part
edgarr.each{|e|
	e.cost = [dijkCost[e.src],dijkCost[e.dst]].min
}
edgarr.sort!
edgarr.reverse!

uftree = Array.new(n).map!{Array.new}

edgarr.each{|e|
	if merge(e.src,e.dst)
		#puts e.src,e.dst,""
		
		uftree[e.src].push(Edge.new(e.src,e.dst,e.cost))
		uftree[e.dst].push(Edge.new(e.dst,e.src,e.cost))
	end
}

# Getting Tree infomartion Part(ex. depth, parent)

stack = []

$parent = Array.new(n).map!{Array.new(18,-1)}
$costlca = Array.new(n).map!{Array.new(18,INF)}
$depth  = Array.new(n,-1)
done = Array.new(n,false)
stack.push(0)
done[0]=true
$depth[0] = 0
while stack.size() != 0 
	q = stack[-1]
	stack.pop
	uftree[q].each{|e|
		if !done[e.dst] 
			$parent[e.dst][0] = q
			$depth[e.dst] = $depth[q]+1
			done[e.dst] = true
			stack.push(e.dst)
		end
	}
end

# Construction LCA Part

n.times{|i|
	#puts $parent[i][0]
	if $parent[i][0] != -1
		$costlca[i][0] = [dijkCost[i],dijkCost[$parent[i][0]]].min
	end
}

1.upto(17){|j|
	n.times{|i|
		if $parent[i][j-1] != -1 
			$parent[i][j] = $parent[$parent[i][j-1]][j-1]
			#puts "#{i}->2^#{j} #{$costlca[i][j-1]} #{$costlca[$parent[i][j-1]][j-1]} #{$parent[i][j]}<"
			$costlca[i][j] = [$costlca[i][j-1],$costlca[$parent[i][j-1]][j-1]].min
			
		end
	}
}

# Answer to Queries
qu.times{
	u,v=gets.split.map(&:to_i)
	u-=1
	v-=1
	if $depth[u] < $depth[v]
		u,v=v,u
	end
	diff=$depth[u]-$depth[v]
	ans = [dijkCost[u],dijkCost[v]].min
	18.times{|i|
		if (diff>>i&1) != 0
			ans = [ans,$costlca[u][i]].min
			u = $parent[u][i]
		end
	}
	if u == v
		puts ans
		next
	end
	17.downto(0){|i|
		if $parent[u][i] != $parent[v][i]
			ans = [ans,$costlca[u][i]].min
			ans = [ans,$costlca[v][i]].min
			u = $parent[u][i]
			v = $parent[v][i]
		end
	}
	ans = [ans,$costlca[u][0]].min
	ans = [ans,$costlca[v][0]].min
	puts ans
}