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