($n,$m)=glob<>;
@c=(0,0,glob<>);
for$i((1..$n-1)x400){
	$e=$f=0;$b=1e99;
	for$j($i+1..$i+$m){
		$k=$n-abs($n-$j);
		$e+=$e[$k]/$m;
		$f+=$f[$k]/$m;
		$b=$f[$k]if$b>$f[$k];
	}
	$e[$i]=$c[$i]+($e<$b?$e:$b);
	$f[$i]=$c[$i]+$f;
}
print$e[1]