本文章写于2008年12月15日。
信息竞赛也许是从小到大让我最最努力的一件事。我记得参加2006noip初赛前，每天中午为了上信息课都吃不上中午饭，只能吃点面包。然后总算是进了决赛，结果决赛得了个零分。比赛之后开始了新一轮的训练，放学后我经常做题做到11点多都不睡，连我自己都不清楚这么努力的原因，也许是因为兴趣吧。
一年后，2007noip赛前，听说这次一等的名额特别多，我本以为能拿一等，没想到我非常荣幸的以160分的成绩取得了二等奖第一名。这无疑给了我沉痛的打击。然后我决定再学一年，原因不是因为我想保送，也不是因为对竞赛的兴趣，而是因为我感觉没得到一等实在是一种耻辱，再学一年只是为了挽回面子。
这一年的学习比想象中的轻松很多，偶尔还可以看看电影，打打游戏，听听歌什么的。终于2008年的noip到来了，听说这一年的一等名额要照上一年减少很多，这给我带来了很大压力。初赛本来以为可以抄一抄，没想到传过来的答案居然错了一道8分的大题，幸好没有抄。然后我以全省第八的成绩进入了决赛。决赛前的训练是以看电影为主，打游戏为辅，再次才是做题。在决赛中我猜很多人都被往年参赛的经验给害了，我就是其中之一，都以为过了200分基本上就保一等了，所以把大部分时间放在了检查前两道题上，结果08年一等的分数线是250分，很多人与一等失之交臂，我也只是以260分的成绩排在全省第14名，搭了个一等的边。
现在我终于可以踏踏实实的参加学校组织的午睡了，不用每天中午都在微机室里度过。偶尔回忆一下微机室的事情还是觉得挺美好的。
下面把08年的决赛题目和我自己写的解题报告和程序发上来留个纪念。
1. 笨小猴
(word.pas/c/cpp)
【问题描述】
笨小猴的词汇量很小，所以每次做英语选择题的时候都很头疼。但是他找到了一种方法，经试验证明，用这种方法去选择选项的时候选对的几率非常大！
这种方法的具体描述如下：假设maxn是单词中出现次数最多的字母的出现次数，minn是单词中出现次数最少的字母的出现次数，如果maxn-minn是一个质数，那么笨小猴就认为这是个Lucky Word，这样的单词很可能就是正确的答案。
【输入】
输入文件word.in只有一行，是一个单词，其中只可能出现小写字母，并且长度小于100。
【输出】
输出文件word.out共两行，第一行是一个字符串，假设输入的的单词是Lucky Word，那么输出“Lucky Word”，否则输出“No Answer”；
第二行是一个整数，如果输入单词是Lucky Word，输出maxn-minn的值，否则输出0。
【输入输出样例1】
word.in
error
word.out
Lucky Word
2
【输入输出样例1解释】
单词error中出现最多的字母r出现了3次，出现次数最少的字母出现了1次，3-1=2，2是质数。
【输入输出样例2】
word.in
Olympic
word.out
No Answer
0
【输入输出样例2解释】
单词olympic中出现最多的字母i出现了2次，出现次数最少的字母出现了1次，2-1=1，1不是质数。
解题报告
开一个num数组记录每个字母出现的次数，例如num[‘a’]中记录了字母a在该单词中出现了几次。在读入过程中完成该数组的填写。然后从a到z找一遍，找到maxn（出现最多的字母的出现次数）和minn（出现最少的字母的出现次数），做差判断是不是质数就可以了。
program word;
var
st :string;
num :array['a'..'z']of longint;
maxn,minn :longint;
procedure clo;
begin
close(input);
close(output);
end;
function zhi(a:longint):boolean;
var
i :longint;
begin
if a<= then
begin
zhi:=false;
exit;
end;
for i:= to trunc(sqrt(a)) do
if a mod i= then
begin
zhi:=false;
exit;
end;
zhi:=true;
end;
procedure init;
var
i :longint;
ch :char;
begin
readln(st);
minn:=maxlongint;
maxn:=;
for i:= to length(st) do inc(num[st]);
for ch:='a' to 'z' do
begin
if num[ch]>maxn then maxn:=num[ch];
if (num[ch]>)and(num[ch]<minn) then minn:=num[ch];
end;
if zhi(maxn-minn) then
begin
writeln('Lucky Word');
writeln(maxn-minn);
end else
begin
writeln('No Answer');
writeln('');
end;
end;
begin
assign(input,'word.in'); reset(input);
assign(output,'word.out'); rewrite(output);
init;
clo;
end.
2. 火柴棒等式
(matches.pas/c/cpp)
【问题描述】
给你n根火柴棍，你可以拼出多少个形如“A+B=C”的等式？等式中的A、B、C是用火柴棍拼出的整数（若该数非零，则最高位不能是0）。
注意：
1. 加号与等号各自需要两根火柴棍，拼出0-9各需6，2，5，5，4，5，6，3，7，6根火柴
2. 如果A≠B，则A+B=C与B+A=C视为不同的等式（A、B、C>=0）
3. n根火柴棍必须全部用上
【输入】
输入文件matches.in共一行，又一个整数n（n<=24）。
【输出】
输出文件matches.out共一行，表示能拼成的不同等式的数目。
【输入输出样例1】
matches.in
14
matches.out
2
【输入输出样例1解释】
2个等式为0+1=1和1+0=1。
【输入输出样例2】
matches.in
18
matches.out
9
【输入输出样例2解释】
9个等式为：
0+4=4
0+11=11
1+10=11
2+2=4
2+7=9
4+0=4
7+2=9
10+1=11
11+0=11
解题报告
一道交表题，先写出一个枚举的程序，分别计算出输入1~24时的结果。填写等式a+b=c，枚举a、b的值，再看a+b,a,b所消耗的火柴数+4是否等于所给火柴数即可。不难发现a,b最大不会超过1111，先算出a<b的情况总数，乘以2得a>b,a<b的情况总数，再算出a=b的情况总数，相加得出结果。
第一个搜索程序如下：
program matches;
const
maxx =;
num :array[..]of longint=(,,,,,,,,,);
var
n :longint;
procedure clo;
begin
close(input);
close(output);
end;
function plus(a:longint):longint;
begin
plus:=;
if a= then
begin
plus:=num[];
exit;
end;
while a> do
begin
plus:=plus+num[a mod ];
a:=a div ;
end;
end;
procedure work;
var
i,j,a,b,tot :longint;
begin
tot:=;
for i:= to maxx do
for j:= to i- do
if plus(i)+plus(j)+plus(i+j)=n then inc(tot);
tot:=tot*;
for i:= to maxx do
if plus(i)*+plus(i*)=n then inc(tot);
writeln(' ans[',n+,']:=',tot,';');
end;
begin
assign(input,'matches.in'); reset(input);
assign(output,'matches.out'); rewrite(output);
for n:= to do work;
clo;
end.
最终程序如下：
program matches;
const
maxn =;
var
ans :array[..maxn]of longint;
n :longint;
procedure clo;
begin
close(input);
close(output);
end;
begin
assign(input,'matches.in'); reset(input);
assign(output,'matches.out'); rewrite(output);
ans[]:=;
ans[]:=;
ans[]:=;
ans[]:=;
ans[]:=;
ans[]:=;
ans[]:=;
ans[]:=;
ans[]:=;
ans[]:=;
ans[]:=;
ans[]:=;
readln(n);
writeln(ans[n]);
clo;
end.
3. 传纸条
(wassage.pas/c/cpp)
【问题描述】
小渊和小轩是好朋友也是同班同学，他们在一起总有谈不完的话题。一次素质拓展活动中，班上同学安排做成一个m行n列的矩阵，而小渊和小轩被安排在矩阵对角线的两端，因此，他们就无法直接交谈了。幸运的是，他们可以通过传纸条来进行交流。纸条要经由许多同学传到对方手里，小渊坐在矩阵的左上角，坐标(1,1)，小轩坐在矩阵的右下角，坐标(m,n)。从小渊传到小轩的纸条只可以向下或者向右传递，从小轩传给小渊的纸条只可以向上或者向左传递。
在活动进行中，小渊希望给小轩传递一张纸条，同时希望小轩给他回复。班里每个同学都可以帮他们传递，但只会帮他们一次，也就是说如果此人在小渊递给小轩纸条的时候帮忙，那么在小轩递给小渊的时候就不会再帮忙。反之亦然。
还有一件事情需要注意，全班每个同学愿意帮忙的好感度有高有低（注意：小渊和小轩的好心程度没有定义，输入时用0表示），可以用一个0-100的自然数来表示，数越大表示越好心。小渊和小轩希望尽可能找好心程度高的同学来帮忙传纸条，即找到来回两条传递路径，使得这两条路径上同学的好心程度只和最大。现在，请你帮助小渊和小轩找到这样的两条路径。
【输入】
输入文件message.in的第一行有2个用空格隔开的整数m和n，表示班里有m行n列（1<=m,n<=50）。
接下来的m行是一个m*n的矩阵，矩阵中第i行j列的整数表示坐在第i行j列的学生的好心程度。每行的n个整数之间用空格隔开。
【输出】
输出文件message.out共一行，包含一个整数，表示来回两条路上参与传递纸条的学生的好心程度之和的最大值。
【输入输出样例】
message.in
3 3
0 3 9
2 8 5
5 7 0
message.out
34
【限制】
30%的数据满足：1<=m,n<=10
100%的数据满足：1<=m,n<=50
解题报告
动态规划，我们可以将其视为一个路径问题，从左上角到右下角找两条不相交路线。f[step,x1,x2]表示从左上角两条路各走了step步后，上面一条路走到第x1行，下面一条路走到第x2行，此时的最大好心值。根据step和x可以算出y(走到第几列)，y=step-x+2。
最外层枚举step，里层枚举x1,x2。对于每个f[step,x1,x2]有四种情况，这两条路线的上一步从上来还是从左来，
即：
f[step-1,x1-1,x2-1]+map[x1,y1]+map[x2,y2],
f[step-1,x1,x2-1]+map[x1,y1]+map[x2,y2],
f[step-1,x1,x2]+map[x1,y1]+map[x2,y2],
f[step-1,x1-1,x2] +map[x1,y1]+map[x2,y2]。
最后f[n+m-3,n-1,n]即为所求。
program message;
const
maxn =;
var
n,m :longint;
map :array[..maxn,..maxn]of longint;
f :array[..maxn*,..maxn,..maxn]of longint;
procedure clo;
begin
close(input);
close(output);
end;
function max(a,b:longint):longint;
begin
if a>b then max:=a else max:=b;
end;
procedure init;
var
i,j :longint;
begin
readln(n,m);
for i:= to n do
begin
for j:= to m do read(map);
readln;
end;
end;
procedure work;
var
step,x1,x2,y1,y2:longint;
xm :longint;
begin
for step:= to m+n- do
begin
if step+<=n then xm:=step+ else xm:=n;
for x2:= to xm do
for x1:= to x2- do
begin
y1:=step-x1+;
y2:=step-x2+;
f[step,x1,x2]:=max(f[step-,x1-,x2-],max(f[step-,x1,x2-],max(f[step-,x1,x2],f[step-,x1-,x2])));
f[step,x1,x2]:=f[step,x1,x2]+map[x1,y1]+map[x2,y2];
end;
end;
writeln(f[n+m-,n-,n]);
end;
begin
assign(input,'message.in'); reset(input);
assign(output,'message.out'); rewrite(output);
init;
work;
clo;
end.
4. 双栈排序
(twostack.pas/c/cpp)
【问题描述】
Tom最近在研究一个有趣的排序问题。如图所示，通过2个栈S1和S2，Tom希望借助以下4种操作实现将输入序列升序排序。
操作a
如果输入序列不为空，将第一个元素压入栈S1
操作b
如果栈S1不为空，将S1栈顶元素弹出至输出序列
操作c
如果输入序列不为空，将第一个元素压入栈S2
操作d
如果栈S2不为空，将S2栈顶元素弹出至输出序列
如果一个1~n的排列P可以通过一系列操作使得输出序列为1，2，…，(n-1)，n，Tom就称P是一个“可双栈排序排列”。例如(1,3,2,4)就是一个“可双栈排序序列”，而(2,3,4,1)不是。下图描述了一个将(1,3,2,4)排序的操作序列：<a,c,c,b,a,d,d,b>
当然，这样的操作序列有可能有几个，对于上例(1,3,2,4)，<a,c,c,b,a,d,d,b>是另外一个可行的操作序列。Tom希望知道其中字典序最小的操作序列是什么。
【输入】
输入文件twostack.in的第一行是一个整数n。
第二行有n个用空格隔开的正整数，构成一个1~n的排列。
【输出】
输出文件twostack.out共一行，如果输入的排列不是“可双栈排序排列”，输出数字0；否则输出字典序最小的操作序列，每两个操作之间用空格隔开，行尾没有空格。
【输入输出样例1】
twostack.in
4
1 3 2 4
twostack.out
a b a a b b a b
【输入输出样例2】
twostack.in
4
2 3 4 1
twostack.out
0【输入输出样例3】
twostack.in
3
2 3 1
twostack.out
a c a b b d【限制】
30%的数据满足： n<=10
50%的数据满足： n<=50
100%的数据满足： n<=1000
解题报告
暴力搜索。我介绍的这种算法可得40分。依次尝试a,b,c,d四种做法是否可行。第一组得以实现的解即为所求。
program twostack;
const
maxn =;
var
n,s3 :longint;
s,s1,s2 :array[..maxn]of longint;
ans :array[..maxn*]of longint;
procedure clo;
begin
close(input);
close(output);
halt;
end;
procedure init;
var
i :longint;
begin
readln(n);
if n> then
begin
writeln('');
clo;
end;
for i:=n downto do read(s);
s[]:=n;
readln;
end;
procedure print(a:longint);
var
i :longint;
begin
write(chr(ord('a')-+ans[]));
for i:= to a do
write(' ',chr(ord('a')-+ans));
writeln;
clo;
end;
procedure search(a:longint);
begin
if s3=n then print(a-);
if (s[]>)and((s1[s1[]]>s[s[]])or(s1[]=)) then
begin
inc(s1[]);
s1[s1[]]:=s[s[]];
dec(s[]);
ans[a]:=;
search(a+);
inc(s[]);
s[s[]]:=s1[s1[]];
dec(s1[]);
end;
if (s1[]>)and(s1[s1[]]-s3=) then
begin
inc(s3);
dec(s1[]);
ans[a]:=;
search(a+);
inc(s1[]);
s1[s1[]]:=s3;
dec(s3);
end;
if (s[]>)and((s2[s2[]]>s[s[]])or(s2[]=)) then
begin
inc(s2[]);
s2[s2[]]:=s[s[]];
dec(s[]);
ans[a]:=;
search(a+);
inc(s[]);
s[s[]]:=s2[s2[]];
dec(s2[]);
end;
if (s2[]>)and(s2[s2[]]-s3=) then
begin
inc(s3);
dec(s2[]);
ans[a]:=;
search(a+);
inc(s2[]);
s2[s2[]]:=s3;
dec(s3);
end;
end;
begin
assign(input,'twostack.in'); reset(input);
assign(output,'twostack.out'); rewrite(output);
init;
search();
writeln('');
clo;
end.
