1789: [Ahoi2008]Necklace Y型项链

1789: [Ahoi2008]Necklace Y型项链

Time Limit: 1 Sec  Memory Limit: 64 MB
Submit: 421  Solved: 258
[Submit][Status][Discuss]

Description

欢乐岛上众多新奇的游乐项目让小可可他们玩的非常开心。现在他们正在玩比赛串项链的游戏，谁串的最快就能得到优厚的奖品。这可不是普通的项链，而是一种Y型项链，项链的最中间有一颗大珍珠作为结合点，从大珍珠上连出来3条由各种宝石串起来的链子。比赛的规则是这样的：每次可以从三条链子中某一条的一端取下来一个宝石，或者安上去一个宝石，称为一次操作，经过若干次操作，最终使得三条链子完全相同。想要赢得比赛，那么只能使用尽量少的操作次数。假设每种宝石都有无数多个以供使用，且链子足够长。你能帮助小可可赢得比赛吗? 注：由于对Y型项链的宝石数没有特殊的要求，所以即使你把所有宝石都取下来，也是一个可以接受的方案(三根没有串宝石的绳子也是完全一样的)．

Input

一共有3行，表示Y型项链的三条链子，每行开始有一个数字N，表示初始时这条链子上串有N个宝石(N<=50)，随后是一个空格，然后是N个'A'和'Z'之间的字符，表示这个链子上的宝石，每个字母表示一种不同的宝石，这个字符串最左边的字符表示的是离大珍珠最近的那个宝石，而最右边的表示的是在链子末端的宝石。

Output

只有一个整数，表示所需要的最少的操作次数．

Sample Input

3 CAT
3 TAC
5 CATCH

Sample Output

8

HINT

提示：100％的数据中，N<=50．
50％的数据中，N<=20．

Source

Day2

题解：。。。实际上别老想着DP、二分、哈希啥的高端算法，事实证明暴力一样也能0msA掉题目——直接上来枚举前缀串，然后算出变化距离，然后打擂台弄出最小的即可

 /**************************************************************
     Problem:
     User: HansBug
     Language: Pascal
     Result: Accepted
     Time: ms
     Memory: kb
 ****************************************************************/

 var
    i,j,k,l,m,n,ans:longint;
    a,b,c,s:ansistring;ch:char;
 function min(x,y:longint):longint;
          begin
               if x<y then min:=x else min:=y;
          end;
 function cal(x,y:ansistring):longint;
          var i:longint;
          begin
               for i:= to min(length(x),length(y)) do
                   if x[i]<>y[i] then break;
               if x[i]<>y[i] then dec(i);
               exit(length(x)-i+length(y)-i);
          end;
 begin
      readln(i,ch,a);
      readln(i,ch,b);
      readln(i,ch,c);
      ans:=length(a)+length(b)+length(c);
      s:='';
      for i:= to length(a) do
          begin
               s:=s+a[i];
               ans:=min(ans,cal(s,a)+cal(s,b)+cal(s,c));
          end;
      s:='';
      for i:= to length(b) do
          begin
               s:=s+b[i];
               ans:=min(ans,cal(s,a)+cal(s,b)+cal(s,c));
          end;
      s:='';
      for i:= to length(c) do
          begin
               s:=s+c[i];
               ans:=min(ans,cal(s,a)+cal(s,b)+cal(s,c));
          end;
      writeln(ans);
      readln;
 end.