@d=(0,(-1e9)x9);
<>;
for$a(glob<>){
	$a%=10;
	@d=map{
		$d[$_]>$d[$_-$a]+1?$d[$_]:$d[$_-$a]+1
	}0..9
}
print$d[0],$/