local c = io.read("*n")
local n = io.read("*n")
local a = {}
for i = 1, n do
  a[i] = io.read("*n")
end
local t = {}
for i = 1, c do
  t[i] = -1
end

for i = 1, n do
  local ai = a[i]
  if ai <= c then
    if t[ai] < 0 or 1 < t[ai] then t[ai] = 1 end
  end
  for j = 1, c - ai do
    local dst = j + ai
    if 0 <= t[j] then
      if t[dst] < 0 or t[j] + 1 < t[dst] then
        t[dst] = t[j] + 1
      end
    end
  end
end
print(t[c])