Tyvj P1010 笨小猴

背景 Background

NOIP2008复赛提高组第一题

描述 Description

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

输入格式 Input Format

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

输出格式 Output Format

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

样例输入 Sample Input

输入样例1
error

输入样例2
olympic

样例输出 Sample Output

输出样例1
Lucky Word
2

输出样例2
No Answer
0

 

时间限制 Time Limitation

各个测试点1s

program noip2008t1;
 var
  i,k,n,maxn,minn:integer;
  a:array[1..26]of integer;
  b:array[1..26]of boolean;
  s:string;
 function judge(x:integer):boolean;
  var
   j,m:integer;
  begin
   if (x=0)or (x=1) then exit(false);
   if x=2 then exit(true);
   judge := true;
   m:=round(sqrt(x));
   for j := 2 to m do if (x mod j = 0) then exit(false);
  end;
 begin
  for i := 1 to 26 do
   begin
    b[i]:=false;
    a[i]:=0;
   end;
  maxn := 0; minn := 120;
  readln (s);
  for i := 1 to length(s) do
   begin
    k:=ord(s[i])-96;
    inc(a[k]);
    b[k]:=true;
   end;
  for i := 1 to 26 do
   begin
    if ((a[i]>maxn) and (b[i])) then maxn:=a[i];
    if ((a[i]<minn) and (b[i])) then minn:=a[i];
   end;
  n := maxn - minn;
  if judge(n) then begin writeln ('Lucky Word');write (n);end
   else begin writeln ('No Answer');write ('0');end;
 end.

擦，So Easy……