1789: [Ahoi2008]Necklace Y型项链

2021-09-20 15:48:03

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

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.

码农公寓