codves 笨小猴 1053

题目描述 Description
笨小猴的词汇量很小，所以每次做英语选择题的时候都很头疼。但是他找到了一种方法，经试验证明，用这种方法去选择选项的时候选对的几率非常大！
这种方法的具体描述如下：假设maxn是单词中出现次数最多的字母的出现次数，minn是单词中出现次数最少的字母的出现次数，如果maxn-minn是一个质数，那么笨小猴就认为这是个Lucky Word，这样的单词很可能就是正确的答案。

输入描述 Input Description
输入文件word.in只有一行，是一个单词，其中只可能出现小写字母，并且长度小于100。

输出描述 Output Description
输出文件word.out共两行，第一行是一个字符串，假设输入的的单词是Lucky Word，那么输出“Lucky Word”，否则输出“No Answer”；第二行是一个整数，如果输入单词是Lucky Word，输出maxn-minn的值，否则输出0。

样例输入 Sample Input
样例一
error
样例二
olympic

样例输出 Sample Output
样例一
Lucky Word
2
样例二
No Answer
0

代码：

var
  st:string;
  s,max,min:longint;
function prime(n:longint):boolean;
  var
    i:longint;
  begin
    prime:=true;
    for i:=2 to trunc(sqrt(n)) do
      if n mod i=0 then begin
        prime:=false;break;
      end;
    if (n=0)or(n=1) then prime:=false;
  end;
procedure sum(st:string);
  var
    a:array['a'..'z']of longint;
    i:longint;
    ch:char;
    word:string;
  begin
    word:=st;
    fillchar(a,sizeof(a),0);
    for i:=1 to length(word) do
       inc(a[word[i]]);
    max:=0;min:=length(word);
    for ch:='b' to 'z' do
      begin
        if (a[ch]>max) and (a[ch]>0) then max:=a[ch];
        if (a[ch]<min) and (a[ch]>0) then min:=a[ch];
      end;
  end;
begin
  readln(st);
  sum(st);
  if prime(max-min) then  begin writeln('Lucky Word');writeln(max-min);end
                    else begin writeln('No Answer');writeln('0');end;
end.