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……