vijos-p1323 2008.11.9

vijos-p1323 2008.11.9

描述 Description  

118号工厂是世界唯一秘密提炼锎的化工厂，由于提炼锎的难度非常高，技术不是十分完善，所以工厂生产的锎成品可能会有3种不同的纯度，A：100%，B：1%，C：0.01%，为了出售方便，必须把不同纯度的成品分开装箱，装箱员grant第1次顺序从流水线上取10个成品（如果一共不足10个，则全部取出），以后每一次把手中某种纯度的成品放进相应的箱子，然后再从流水线上顺序取一些成品，使手中保持10个成品（如果把剩下的全部取出不足10个，则全部取出），如果所有的成品都装进了箱子，那么grant的任务就完成了。

由于装箱是件非常累的事情，grant希望他能够以最少的装箱次数来完成他的任务，现在他请你编个程序帮助他。

输入格式 Input Format 

第1行为n（1<=n<=100），为成品的数量

以后n行，每行为一个大写字母A，B或C，表示成品的纯度。

输出格式 Output Format 

仅一行，为grant需要的最少的装箱次数。

样例输入 Sample Input  

 11

A

B

C

A

B

C

A

B

C

A

B

样例输出 Sample Output  

3

f[t][s(i,t,'A')][k+s(i,t,'B')][x+s(i,t,'C')]=f[i][j][k][x]+1;

f[t][s(i,t,'A')+j][s(i,t,'B')][x+s(i,t,'C')]=f[i][j][k][x]+1;

f[t][s(i,t,'A')+j][s(i,t,'B')+k][s(i,t,'C')]=f[i][j][k][x]+1;

f[i][j][k][x] 意思是  操作序列最后一个物品为i个,有j个'A',k个'B',x个'C'时的最少次数..

第一排的t是 i+k;因为有可能>n 所有要特殊判断一下;意思是把'A'全部取完.

第2排的t是把'B'全部取完..代表的 i+j;

第3排的t是把'C'取完..表示i+x;

var  i,j,k,d,p,x,y,z,n,m,s:integer;  a:array[1..100] of char;  f:array[10..100,0..10,0..10,0..10] of integer;begin  readln(n);  x:=0;y:=0;z:=0;  for i:=1 to n do    begin      readln(a[i]);      if i<=10 then        begin          if a[i]='A' then inc(x);          if a[i]='B' then inc(y);          if a[i]='C' then inc(z);        end;    end;  if n<=10 then    begin      s:=0;      if x>0 then inc(s);      if y>0 then inc(s);      if z>0 then inc(s);      writeln(s);      halt;    end;  for i:=10 to n do   for j:=0 to 10 do    for k:=0 to 10 do     for d:=0 to 10 do      f[i,j,k,d]:=-1;  f[10,x,y,z]:=0;  for i:=10 to n-1 do    for j:=0 to 10 do      for k:=0 to 10 do       for d:=0 to 10 do        if f[i,j,k,d]<>-1 then          begin            m:=i+j;            if m>n then m:=n;            x:=0;y:=k;z:=d;            for p:=i+1 to m do              begin                if a[p]='A' then inc(x);                if a[p]='B' then inc(y);                if a[p]='C' then inc(z);              end;            if f[m,x,y,z]=-1 then f[m,x,y,z]:=maxint;            if f[m,x,y,z]>f[i,j,k,d] then f[m,x,y,z]:=f[i,j,k,d]+1;            m:=i+k;            if m>n then m:=n;            x:=j;y:=0;z:=d;            for p:=i+1 to m do              begin                if a[p]='A' then inc(x);                if a[p]='B' then inc(y);                if a[p]='C' then inc(z);              end;            if f[m,x,y,z]=-1 then f[m,x,y,z]:=maxint;            if f[m,x,y,z]>f[i,j,k,d] then f[m,x,y,z]:=f[i,j,k,d]+1;            m:=i+d;            if m>n then m:=n;            x:=j;y:=k;z:=0;            for p:=i+1 to m do              begin                if a[p]='A' then inc(x);                if a[p]='B' then inc(y);                if a[p]='C' then inc(z);              end;            if f[m,x,y,z]=-1 then f[m,x,y,z]:=maxint;            if f[m,x,y,z]>f[i,j,k,d] then f[m,x,y,z]:=f[i,j,k,d]+1;          end;  s:=maxint;  for i:=0 to 10 do    for j:=0 to 10 do     for k:=0 to 10 do     if f[n,i,j,k]<>-1 then      begin        if i>0 then inc(f[n,i,j,k]);        if j>0 then inc(f[n,i,j,k]);        if k>0 then inc(f[n,i,j,k]);        if f[n,i,j,k]<s then s:=f[n,i,j,k];      end;  writeln(s);end.