单词游戏

 

单词游戏

源程序名            words.???（pas, c, cpp）

可执行文件名        words.exe

输入文件名          words.in

输出文件名          words.out

【问题描述】

       Io和Ao在玩一个单词游戏。

       他们轮流说出一个仅包含元音字母的单词，并且后一个单词的第一个字母必须与前一个单词的最后一个字母一致。

    游戏可以从任何一个单词开始。

    任何单词禁止说两遍，游戏中只能使用给定词典中含有的单词。

    游戏的复杂度定义为游戏中所使用的单词长度总和。

    编写程序，求出使用一本给定的词典来玩这个游戏所能达到的游戏最大可能复杂度。

【输入】

       输入文件的第一行，表示一个自然数N(1≤N≤16)，N表示一本字典中包含的单词数量以下的每一行包含字典中的一个单词，每一个单词是由字母A、E、I、O和U组成的一个字符串，每个单词的长度将小于等于100，所有的单词是不一样的。

【输出】      

       输出文件仅有一行，表示该游戏的最大可能复杂度。

【样例】

       words.in                                            words.out

       5                                                         16

       IOO

       IUUO

       AI

       OIOOI

       AOOI

=============================

一道搜索：

不过要加2个剪枝才可全部过完

1.判断当前单词是否可以和其他单词组合

2.总长度是否达到最长，达到最长就退出。

-------------------------------------------------------

刚开始只想到了第2个剪枝.

其实现在想想要结合第一个剪枝第二个剪枝才能发挥最大的作用

不过还是有一些侥幸的思想在里面。

------------------------------------------------------------------------------------

正解应该为欧拉路..

================================================

type  node=record         h,t:char;         v:longint;       end;var  n:longint;  nt:longint;  st:string;  word:array[1..16]of node;  //h,t:array[1..6]of longint;  ans:longint;  f:array[1..16]of boolean;procedure init;begin  assign(input,'words.in');  assign(output,'words.out');  reset(input); rewrite(output);end;procedure terminate;begin  close(input); close(output);  halt;end;{function num(ch:char):longint;begin  case ch of      'A': exit(1);      'E': exit(2);      'I': exit(3);      'O': exit(5);      'U': exit(6);    end;end;    }procedure dfs(t,tot:longint;ch:char);var  i:longint;begin  if t>nt then begin writeln(ans); terminate; end;  for i:=1 to n do    if (f[i])and ((ch='*')or(ch=word[i].h)) then      begin        f[i]:=false;        if ans<tot+word[i].v then ans:=tot+word[i].v;        dfs(t+1,tot+word[i].v,word[i].t);        f[i]:=true;      end;end;procedure main;var  i,j:longint;begin  readln(n);  fillchar(f,sizeof(f),false);  for i:=1 to n do    begin      readln(st);      word[i].h:=st[1];      word[i].t:=st[length(st)];      word[i].v:=length(st);    end;  for i:=1 to n do    for j:=1 to n do      if i<>j then        begin          if word[i].t=word[j].h then            begin              f[i]:=true;              f[j]:=true;            end;        end;  nt:=n;  ans:=0;  for i:=1 to n do    if not f[i] then      begin        dec(nt);        if ans<word[i].v then ans:=word[i].v;      end;  dfs(1,0,'*');  writeln(ans);end;begin  init;  main;  terminate;end.