; 最大の平均は最大値1個だけから成るグループ
; 最小の平均は最小値1個だけから成るグループ
; 残りを適当なグループにまとめる
; 入力をソートして最大値から最小値を引く
(defun main ()
  (let* ((n (read))
         (k (read))
         (xs (sort (loop repeat n collect (read)) #'>)))
    ; first リストの最初の要素にアクセス
    ; last n リストの最後の n個のコンスにアクセス デフォルトは1個
    (progn (princ (- (first xs) (car (last xs)))) (terpri))))
(main)