[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.