import Data.List

main = do
  [n, k] <- map read . words <$> getLine
  a <- sort . map read . words <$> getLine
  print $ solve a (n - k)

solve :: [Int] -> Int -> Int
solve a k = sum . take k . sort $ (zipWith (-) (tail a) a)