记录编号	32926	评测结果	AAAAAAAAAA
题目名称	机房	最终得分	100
用户昵称	wk_noi	是否通过	通过
代码语言	Pascal	运行时间	0.286 s
提交时间	2011-11-08 20:02:02	内存使用	0.14 MiB

Program orz;
Const
 maxn=2501;
Var
 n,m,i,j:longint;
 d:array[1..maxn] of integer;
 e:array[0..maxn,0..1] of integer;
 f:array[0..maxn] of integer;

Function min(i,j:longint):longint;
 begin
  if i<j then
   exit(i);
  exit(j);
 end;

Function pd(i,j:longint):boolean;
 begin
  if e[i,0]-e[j-1,0]=0 then
   exit(true);
  if e[i,1]-e[j-1,1]=0 then
   exit(true);
  if abs(abs(e[i,0]-e[j-1,0])-abs(e[i,1]-e[j-1,1]))<=m then
   exit(true);
  exit(false);
 end;

Begin
 assign(input,'orz.in');
 assign(output,'orz.out');
 reset(input);
 rewrite(output);
 readln(n,m);
 for i:=1 to n do
  begin
   readln(d[i]);
   if d[i]=1 then
    begin
     e[i,0]:=e[i-1,0]+1;
     e[i,1]:=e[i-1,1];
    end
   else
    begin
     e[i,1]:=e[i-1,1]+1;
     e[i,0]:=e[i-1,0];
    end;
  end;
 fillchar(f,sizeof(f),$7F);
 f[0]:=0;
 f[1]:=1;
 for i:=2 to n do
  for j:=1 to i-1  do
   begin
    if pd(i,j) then
     f[i]:=min(f[i],f[j-1]+1);
   end;
 writeln(f[n]);
 close(input);
 close(output);
End.