Problem: Every true king during his life must conquer the world, hold the Codeforces world finals, win pink panda in the shooting gallery and travel all over his kingdom.

King Copa has already done the first three things. Now he just needs to travel all over the kingdom. The kingdom is an infinite plane with Cartesian coordinate system on it. Every city is a point on this plane. There are n cities in the kingdom at points with coordinates (x1, 0), (x2, 0), ..., (xn, 0), and there is one city at point (xn + 1, yn + 1). 

King starts his journey in the city number k. Your task is to find such route for the king, which visits all cities (in any order) and has minimum possible length. It is allowed to visit a city twice. The king can end his journey in any city. Between any pair of cities there is a direct road with length equal to the distance between the corresponding points. No two cities may be located at the same point.

Input

The first line contains two integers n and k (1 ≤ n ≤ 105, 1 ≤ k ≤ n + 1) — amount of cities and index of the starting city. The second line contains n + 1 numbers xi. The third line contains yn + 1. All coordinates are integers and do not exceed 106 by absolute value. No two cities coincide.

Output

Output the minimum possible length of the journey. Your answer must have relative or absolute error less than 10 - 6.

Examples

Input

3 1
0 1 2 1
1


Output

3.41421356237309490000

Input

3 1
1 0 2 1
1


Output

3.82842712474619030000

Input

4 5
0 5 -1 -5 2
3


Output

14.24264068711928400000

Solution (in CPP):

Solution:
#include <bits/stdc++.h>
int x[101000], y, i, K, n;
double Ans, Dis;
long long Min(long long a, long long b) { return a < b ? a : b; }
int main() {
  scanf("%d%d", &n, &K);
  K--;
  K++;
  K--;
  for (i = 0; i <= n; i++) scanf("%d", x + i);
  scanf("%d", &y);
  if (K == n)
    K = 1000000000;
  else
    K = x[K];
  std::sort(x, x + n);
  for (i = 0; i < n; i++)
    if (K == x[i]) break;
  K = i;
  Ans = 1000000000;
  if (K == n) {
    Ans = sqrt(Min(1ll * (x[K] - x[0]) * (x[K] - x[0]) + 1ll * y * y,
                   1ll * (x[K] - x[n - 1]) * (x[K] - x[n - 1]) + 1ll * y * y));
    Ans += x[n - 1] - x[0];
  } else {
    for (i = 0; i < n; i++) {
      if (i <= K) {
        Dis = 1.0 * (x[K] - x[i]) + 1.0 * (x[n - 1] - x[i]) +
              sqrt(1ll * (x[n] - x[n - 1]) * (x[n] - x[n - 1]) + 1ll * y * y);
        if (Dis > 1.0 * (x[n - 1] - x[K]) + 1.0 * (x[n - 1] - x[i]) +
                      sqrt(1ll * (x[n] - x[i]) * (x[n] - x[i]) + 1ll * y * y))
          Dis = 1.0 * (x[n - 1] - x[K]) + 1.0 * (x[n - 1] - x[i]) +
                sqrt(1ll * (x[n] - x[i]) * (x[n] - x[i]) + 1ll * y * y);
        if (i)
          Dis += sqrt(Min(
                     1ll * (x[n] - x[i - 1]) * (x[n] - x[i - 1]) + 1ll * y * y,
                     1ll * (x[n] - x[0]) * (x[n] - x[0]) + 1ll * y * y)) +
                 1.0 * (x[i - 1] - x[0]);
        if (Ans > Dis) Ans = Dis;
      }
      if (K <= i) {
        Dis = 1.0 * (x[i] - x[K]) + 1.0 * (x[i] - x[0]) +
              sqrt(1ll * (x[n] - x[0]) * (x[n] - x[0]) + 1ll * y * y);
        if (Dis > 1.0 * (x[K] - x[0]) + 1.0 * (x[i] - x[0]) +
                      sqrt(1ll * (x[n] - x[i]) * (x[n] - x[i]) + 1ll * y * y))
          Dis = 1.0 * (x[K] - x[0]) + 1.0 * (x[i] - x[0]) +
                sqrt(1ll * (x[n] - x[i]) * (x[n] - x[i]) + 1ll * y * y);
        if (i != n - 1)
          Dis +=
              sqrt(Min(
                  1ll * (x[n] - x[i + 1]) * (x[n] - x[i + 1]) + 1ll * y * y,
                  1ll * (x[n] - x[n - 1]) * (x[n] - x[n - 1]) + 1ll * y * y)) +
              1.0 * (x[n - 1] - x[i + 1]);
        if (Ans > Dis) Ans = Dis;
      }
    }
  }
  printf("%.8lf\n", Ans);
  return 0;
}