特长生模拟——门票

题目大意：
一个有效的密码由多个小写字母(‘a’…’z’)组成，至少有一个元音(‘a’, ‘e’, ‘i’,’o’ 或 ‘u’)和两个辅音(除去元音以外的音节)，并且是按字母表顺序出现的(例如，’abc’是有效的，而’bac’不是) 。
现在给定一个期望长度L 和C 个小写字母，mxy想知道所有的长度为L、能由这给定的C个字母组成的有效密码。密码必须按字母表顺序打印出来，如果数量多于25000个，则告诉mxy前25000个有效密码，即使后面还存在有效密码。

3 <= L <= 15
1 <= C <= 26
保证只出现小写字母

题解：
直接就是一个搜索：
直接按字典序按顺序搜字母求组合。
注意一下：
1.判断元音辅音数量是否达标。
2.去重复

var    a:array [0..16] of char;    b:array ['a'..'z'] of longint;    ans:array [0..25001] of string;    flag:array [1..2] of longint;    sum,i,j,n,m:longint;    c:string;procedure dfs(dep:longint;o:char;now:string);var    i:char;begin    if dep>n then    begin        if now=ans[sum] then exit;        if flag[1]=0 then exit;        if flag[2]<2 then exit;        inc(sum);        ans[sum]:=now;        if sum=25000 then        begin             for j:=1 to sum do writeln(ans[j]);             close(input); close(output);             halt;        end;        exit;    end;    for i:=o to 'z' do        if b[i]>0 then           begin                if (i='a') or (i='e') or (i='i')                or (i='o') or (i='u')                   then inc(flag[1])                   else inc(flag[2]);                dec(b[i]);                dfs(dep+1,i,now+i);                inc(b[i]);                if (i='a') or (i='e') or (i='i')                or (i='o') or (i='u')                   then dec(flag[1])                   else dec(flag[2]);           end;end;begin    assign(input,'ticket.in'); reset(input);    assign(output,'ticket.out'); rewrite(output);    readln(n,m);    readln(c);    for i:=1 to length(c) do        if c[i]<>' ' then b[c[i]]:=b[c[i]]+1;     dfs(1,'a','');    for i:=1 to sum do writeln(ans[i]);    close(input); close(output);end.