洛谷 P1125 笨小猴

题目描述

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

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

输入输出格式

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

输出格式：
输出文件word.out共两行，第一行是一个字符串，假设输入的的单词是Lucky Word，那么输出“Lucky Word”，否则输出“No Answer”；

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

输入输出样例

输入样例#1：
error
输出样例#1：
Lucky Word
2
输入样例#2：
olympic
输出样例#2：
No Answer
0
说明

【输入输出样例1解释】

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

【输入输出样例2解释】

单词olympic中出现最多的字母i出现了2次，出现次数最少的字母出现了1次，2-1=1，1不是质数。

//注：此处原题解释有误，实际上是0，也不是质数。

noip2008提高第一题

分析：
纯模拟，根据上面的做即可,灌水中。

代码:

var s:string;
    l,i,j,max,min,k:longint;
    a:array ['A'..'Z'] of longint;
    t:char;
    f:boolean;
begin
 readln(s);
 l:=length(s);
 for i:=1 to l do
  begin
   s[i]:=upcase(s[i]);
   inc(a[s[i]]);
  end;
 max:=0;
 min:=maxlongint;
 for t:='A' to 'Z' do
  begin
   if (max<a[t]) and (a[t]<>0) then max:=a[t];
   if (min>a[t]) and (a[t]<>0) then min:=a[t];
  end;
 k:=max-min;
 if k<=1 then
  begin
   writeln('No Answer');
   write('0');
   exit;
  end;
 f:=true;
 for i:=2 to trunc(sqrt(k)) do
  if k mod i=0 then begin f:=false; break; end;
 if f=true then
  begin
   writeln('Lucky Word');
   write(k);
  end else
   begin
    writeln('No Answer');
    write('0');
   end;
end.