$c=<>;$n=<>;$/=$";@d=(0,(-1)x$c);for$a(<>){$d[$_-$a]>=0&&$d[$_]<0|$d[$_]>($==$d[$_-$a]+1)and$d[$_]=$=for$a..$c}print$d[$c]