Algorithm 版 (精华区)

发信人: Lerry (戒网·学习), 信区: Algorithm
标  题: [合集]My Answer for P65
发信站: 哈工大紫丁香 (2001年12月22日23:26:16 星期六), 站内信件


────────────────────────────────────────
 sino (一层秋雨一层凉)                于 2001年12月04日21:28:04 星期二 说道:

const p:array['A'..'Z'] of char=('2','2','2','3','3','3','4','4','4','5','5'
,'5','6','6','6','7','Q','7','7','8','8','8','9','9','9','Z');
var
    s:array[1..100000] of string;
    i,j,k,n:integer;
procedure qsort(a,b:integer);
var
    i,j,c:integer;
    t:string;
begin
    if a>=b then exit;
    c:=random(b-a)+a;
    t:=s[c];
    s[c]:=s[b];
    s[b]:='zzzzzzz';
    i:=a;
    j:=b;
    while i<j do begin
        while s[i]<=t do inc(i);
        s[j]:=s[i];s[i]:='       ';
        while s[j]>=t do dec(j);
        s[i]:=s[j];s[j]:='zzzzzzz';
    end;
    s[j]:=t;
    qsort(a,j-1);
    qsort(j+1,b);
end;
begin
    assign(input,'input16.txt');reset(input);
    assign(output,'output16.txt');rewrite(output);
    readln(n);
    for i:=1 to n do begin
        readln(s[i]);
        j:=pos('-',s[i]);
        while j<>0 do begin
            delete(s[i],j,1);
            j:=pos('-',s[i]);
        end;
        for j:=1 to 7 do if ((s[i,j]>='A') and (s[i,j]<='Z')) then s[i,j]:=p
[s[i,j]];
    end;
    qsort(1,n);
    i:=1; k:=1;
    for j:=2 to n do
        if s[i]=s[j] then inc(k)
                     else begin
                            insert('-',s[i],4);
                            if k<>1 then writeln(s[i],' ',k);
                            i:=j; k:=1;
                     end;
    insert('-',s[i],4);
    if k<>1 then writeln(s[i],' ',k);
end.

────────────────────────────────────────
 lizhenguo (夸父·追日)               于 2001年12月04日22:14:22 星期二 说道:

呵呵，又是快排。帅！

────────────────────────────────────────
 sino (一层秋雨一层凉)                于 2001年12月05日19:55:57 星期三 说道:

我准备开始用例程了，赫赫

────────────────────────────────────────
 ssos (存在与虚无·戒酒戒网)          于 2001年12月05日20:27:10 星期三 说道:

什么意思??

────────────────────────────────────────
 sino (一层秋雨一层凉)                于 2001年12月05日20:41:02 星期三 说道:

别的学校都是写好的函数，打印在纸上。到时候直接使用。
我们以前却是现翻书、现编代码的，吃亏了

────────────────────────────────────────
 ssos (存在与虚无·戒酒戒网)          于 2001年12月05日20:42:06 星期三 说道:

faint
这么狡猾~~

────────────────────────────────────────
 sino (一层秋雨一层凉)                于 2001年12月05日20:44:34 星期三 说道:

9494,这办法挺好使的。
另外就是有些超时的题，先在自己的机器上跑出所有结果，然后提交。
这是中山的朋友提供的经验哪！

────────────────────────────────────────
 ssos (存在与虚无·戒酒戒网)          于 2001年12月05日20:46:57 星期三 说道:

这是啥意思??

────────────────────────────────────────
 sino (一层秋雨一层凉)                于 2001年12月05日21:00:20 星期三 说道:

比如说计数类的问题，输入也就是30来种，那么就把所有可能的
数据都算出来，提交时来个查表法就行啦

────────────────────────────────────────
 ssos (存在与虚无·戒酒戒网)          于 2001年12月05日21:05:04 星期三 说道:

hoho
咱们当年不是也想过么:)

────────────────────────────────────────
 sino (一层秋雨一层凉)                于 2001年12月05日21:16:36 星期三 说道:

可是究竟没有实战用过，sigh......

────────────────────────────────────────
 Lerry (戒网·学习)                   于 2001年12月06日07:07:53 星期四 说道:

比赛的时候可以访问外部网络吗？可不可以自带软件？

────────────────────────────────────────
 ssos (存在与虚无·戒酒戒网)          于 2001年12月06日09:55:28 星期四 说道:

当然不可以了

────────────────────────────────────────