#pragma GCC optimize("Ofast")
#pragma GCC optimize("O3,unroll-loops")
#include <bits/stdc++.h>
using namespace std;
#define f0r(i, n) for (auto i = 0; i < (n); ++i)
#define fnr(i, n, k) for (auto i = (n); i < (k); ++i)
#define all(v) (v).begin(), (v).end()
#define pb push_back
#define F first
#define S second
#define ctn(x) cout << x << '\n'
#define forl(a, l) for (auto a : l)
#define ctl(l) for (auto &a : (l)) cout << a << ' '; cout << endl;
#define lb(v, x) (lower_bound(all(v), x) - begin(v))
#define ub(v, x) (upper_bound(all(v), x) - begin(v))
#define pq priority_queue
template <class T>
using V = vector<T>;
using ll = long long;
using vi = V<int>;
using ld = long double;
using vl = V<ld>;
using pi = pair<int, int>;
using pl = pair<ld, int>;
using ti = tuple<int, int, int>;
using Adj = V<V<pi>>;
using vvi = V<vi>;
#include "cyberland.h"
Adj G;
vl djikstra(int s) {
vl dist(G.size(), 1e15);
priority_queue<pl, V<pl>, greater<pl>> pq;
pq.push({0, s});
dist[s] = 0;
while (!pq.empty()) {
auto [d, u] = pq.top();
pq.pop();
if (d > dist[u]) continue;
for (auto [c, w]: G[u]) if (d + w < dist[c]) {
dist[c] = d+w;
pq.push({dist[c], c});
}
}
return dist;
}
double solve(int N, int M, int K, int H, vi x, vi y, vi c, vi arr) {
G.assign(N, {});
f0r(i, M) {
G[x[i]].pb({y[i], c[i]});
G[y[i]].pb({x[i], c[i]});
}
vl dist = djikstra(H);
queue<int> Q;
Q.push(0);
V<bool> vis(N);
vis[H] = 1;
while (!Q.empty()) {
int u = Q.front();
if (vis[u]) continue;
vis[u] = 1;
for (auto [c, w]: G[u]) {
Q.push(c);
}
}
arr[0] = 0;
ld mn = 1e15;
f0r(i, N) if (!arr[i] && vis[i]) mn = min(mn, dist[i]);
return mn == 1e15 ? -1 : mn;
}
