N = gets.to_i
Y = gets.split.map &:to_i

Y.sort!

ans = 0
N.times{|i|
  l = i == 0 ? 1.0/0 : Y[i] - Y[i - 1]
  r = i == N - 1 ? 1.0/0 : Y[i] - Y[i + 1]
  if l.abs < r.abs
    Y[i] = Y[i - 1]
    ans += l.abs
  else
    Y[i] = Y[i + 1]
    ans += r.abs
  end
}
p ans