l, n = gets.split.map(&:to_i)

a = []
n.times do
  a << gets.to_i
end

x = 0
n.times do
  if a[0] > l - a[-1]
    dx = a[0]
    a = a[1..-1].map { |b| b - dx }
  else
    dx = l - a[-1]
    a = a[0...-1].map { |b| b + dx }
  end
  x += dx
end

puts x