#![allow(unused_imports)]
use std::cmp::*;
use std::collections::*;
use std::io::Write;
use std::ops::Bound::*;

#[allow(unused_macros)]
macro_rules! debug {
    ($($e:expr),*) => {
        #[cfg(debug_assertions)]
        $({
            let (e, mut err) = (stringify!($e), std::io::stderr());
            writeln!(err, "{} = {:?}", e, $e).unwrap()
        })*
    };
}

fn main() {
    let v = read_vec::<usize>();
    let (n, k) = (v[0], v[1]);
    let mut a = read_vec::<i64>();

    let mut ans = std::i64::MAX;
    let k = n - k;
    for _ in 0..2 {
        let mut diffs = a.iter().map(|&x| (x - a[0]).abs()).collect::<Vec<_>>();
        diffs.sort();
        diffs.reverse();
        // debug!(diffs);
        let mut temp = 0;
        for i in 0..k {
            temp -= diffs[i]
        }
        for i in k..n {
            temp += diffs[i]
        }
        ans = min(ans, temp);
        a.reverse();
    }
    println!("{}", ans);
}

fn read<T: std::str::FromStr>() -> T {
    let mut s = String::new();
    std::io::stdin().read_line(&mut s).ok();
    s.trim().parse().ok().unwrap()
}

fn read_vec<T: std::str::FromStr>() -> Vec<T> {
    read::<String>()
        .split_whitespace()
        .map(|e| e.parse().ok().unwrap())
        .collect()
}