[NOIP2008] 笨小猴

NOIP2008 笨小猴

时间限制: 1 Sec 内存限制: 128 MB

题目描述

笨小猴的词汇量很小，所以每次做英语选择题的时候都很头疼。但是他找到了一种方法，经试验证明，用这种方法去选择选项的时候选对的几率非常大！

这种方法的具体描述如下：假设maxn是单词中出现次数最多的字母的出现次数，minn是单词中出现次数最少的字母的出现次数，如果maxn-minn是一个质数，那么笨小猴就认为这是个Lucky Word，这样的单词很可能就是正确的答案。

输入

只有一行，是一个单词，其中只可能出现小写字母，并且长度小于100。

输出

共两行，第一行是一个字符串，假设输入的的单词是error，那么输出“Lucky Word”，否则输出“No Answer”；

第二行是一个整数，如果输入单词是Lucky Word，输出maxn-minn的值，否则输出0。

样例输入

error

样例输出

Lucky Word

2

提示

单词error中出现最多的字母r出现了3次，出现次数最少的字母出现了1次，3-1=2，2是质数。

var
a:string;
i,j,k:longint;
x:array[0..26]of longint;
check:array[0..100]of boolean;
prime:array[0..100]of longint;
maxn,minn,n,t:longint;
begin
n:=100;
for i:=2 to n do
check[i]:=true;
check[1]:=false;
for i:=2 to n do
begin
if check[i]=true
then
begin
inc(t);
prime[t]:=i;
end;
for j:=1 to t do
begin
if prime[j]*i>n
then break;
check[prime[j]*i]:=false;
if i mod prime[j]=0
then break;
end;
end;
minn:=maxlongint;
readln(a);
for i:=1 to length(a) do
inc(x[ord(a[i])-96]);
for i:=1 to 26 do
if x[i]>maxn
then maxn:=x[i]
else
if (x[i]<minn)and(x[i]<>0)
then minn:=x[i];
if check[maxn-minn]=true
then
begin
writeln('Lucky Word');
writeln(maxn-minn);
end
else
begin
writeln('No Answer');
writeln(0);
end;
end.