PersonalCorpus 版 (精华区)

寄信人: sino (蚱蜢舟)
标  题: 1208
发信站: 哈工大紫丁香 (2002年03月18日13:18:43 星期一)
来  源: mtlab4.hit.edu.cn 

166850 05:21:41 18 Mar 2002
Bozhang,HIT,P.R.China 1208 Pascal Accepted 0.831 sec 61K

var
    team:array[1..18] of set of 1..54;
    name:array[1..54] of string;
    tn:integer;
    f:boolean;
    s,t:string;
    i,j,k,n:integer;
    best,better:integer;
    st:set of 1..54;
begin
    readln(n); tn:=0;
    for i:=1 to n do begin
        readln(s);
        s:=s+' ';
        for k:=1 to 3 do begin
            t:=copy(s,1,pos(' ',s)-1);
            delete(s,1,pos(' ',s));
            while (length(s)>0) and (s[1]=' ') do delete(s,1,1);
            f:=false;
            for j:=1 to tn do if name[j]=t then begin f:=true; break end;
            if f then team[i]:=team[i]+[j] else begin
                inc(tn);
                name[tn]:=t; team[i]:=team[i]+[tn];
            end;
        end;
    end;
    best:=0;
    for i:=1 to (1 shl n)-1 do begin
        k:=i; better:=0; st:=[]; f:=true;
        for j:=1 to n do begin
            if (k and 1)=1 then if st*team[j]=[] then begin
                inc(better);
                st:=st+team[j];
            end else begin  f:=false;break end;
            k:=k shr 1;
        end;
        if f then if better>best then best:=better;
    end;
    writeln(best);
end.

--
千 但 此 月 人 别 何 不 照 低 转 何 起 高 又 我 今 不 把 明 
里 愿 事 有 有 时 事 应 无 绮 朱 似 舞 处 恐 欲 夕 知 酒 月 
共 人 古 阴 悲 圆 长 有 眠 户 阁 在 弄 不 琼 乘 是 天 问 几 
婵 长 难 晴 欢    向 恨          人 清 胜 楼 风 何 上 青 时 
娟 久 全 圆 离                   间 影 寒 玉 归 年 宫 天 有 
         缺 合                            宇 去    阙       

※ 来源:·哈工大紫丁香 bbs.hit.edu.cn·[FROM: mtlab4.hit.edu.cn]