import sys
from collections import defaultdict, Counter, deque
from itertools import permutations, combinations, product, combinations_with_replacement, groupby, accumulate
import operator
from math import sqrt, gcd, factorial
# from math import isqrt, prod,comb  # python3.8用(notpypy)
from bisect import bisect_left, bisect_right
#from functools import lru_cache,reduce
#from heapq import heappush,heappop,heapify,heappushpop,heapreplace
#import numpy as np
#import networkx as nx
#from networkx.utils import UnionFind
#from numba import njit, b1, i1, i4, i8, f8
#from scipy.sparse import csr_matrix
#from scipy.sparse.csgraph import shortest_path, floyd_warshall, dijkstra, bellman_ford, johnson, NegativeCycleError
# numba例 @njit(i1(i4[:], i8[:, :]),cache=True) 引数i4配列、i8 2次元配列,戻り値i1
def input(): return sys.stdin.readline().rstrip()
def divceil(n, k): return 1+(n-1)//k  # n/kの切り上げを返す
def yn(hantei, yes='Yes', no='No'): print(yes if hantei else no)


def main():
    mod = 10**9+7
    mod2 = 998244353
    n, k = map(int, input().split())
    A = tuple(map(int, input().split()))
    accA = tuple([0]+list(accumulate(A)))
    birdic=dict()
    bildic=dict()
    ans = 10**20
    for i in range(n):
        Ai = A[i]
        ng, ok = -1, 2*10**9+10  # abs(ok)以下でk個揃えられるか？
        while (abs(ok - ng) > 1):
            mid = (ok + ng) // 2
            if Ai+mid not in birdic:
                r = bisect_right(A, Ai+mid)
                birdic[Ai+mid]=r
            else:
                r=birdic[Ai+mid]
            if Ai-mid not in birdic:
                l = bisect_right(A, Ai-mid)
                birdic[Ai-mid]=l
            else:
                l=birdic[Ai-mid]
            if r-l >= k:
                ok = mid
            else:
                ng = mid
        if Ai+ok not in birdic:
            r = bisect_right(A, Ai+ok)
            birdic[Ai+ok]=r
        else:
            r=birdic[Ai+ok]
        if Ai-mid not in birdic:
            l = bisect_right(A, Ai-ok)
            birdic[Ai-ok]=l
        else:
            l=birdic[Ai-ok]
        plusone = accA[r]-accA[i]*2-Ai*(r-i)+accA[l]+Ai*(i-l)-ok*(k-(r-l))
        minusone = accA[n]-accA[r]-Ai*(n-r)-accA[l]+Ai*l+ok*(k-(r-l))
        ans = min(ans, plusone-minusone)
        #print(ans,l,r,ok,mid)
    print(ans)


if __name__ == '__main__':
    main()