笨小猴

 

笨小猴

(wird.pas/c/cpp)

【问题描述】

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

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

【输入】

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

【输出】

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

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

【输入输出样例1】

word.in

word.out

error

Lucky Word

2

【输入输出样例1解释】

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

【输入输出样例2】

word.in

word.out

Olympic

No Answer

0

====================================================================

没想到这道题第一次交居然没AC

-------------------------------------------

要加油了..

==================

var  t:array['a'..'z']of longint;procedure init;begin  assign(input,'p1078.in');  assign(output,'p1078.out');  reset(input); rewrite(output);end;procedure terminate;begin  close(input); close(output);  halt;end;function pd(t:longint):boolean;var  i:longint;begin  pd:=true;  if t<2 then exit(false);  if t=2 then exit(true);  for i:=2 to trunc(sqrt(t)) do    begin      if t mod i=0 then exit(false);    end;end;procedure main;var  ch:char;  max:longint;  min:longint;begin  max:=-1;  min:=maxlongint;  fillchar(t,sizeof(t),0);  while not eoln do    begin      read(ch);      inc(t[ch]);      if t[ch]>max then max:=t[ch];      //if t[ch]<min then min:=t[ch];    end;  for ch:='a' to 'z' do    if t[ch]<>0 then      begin        if min>t[ch] then min:=t[ch];      end;  if pd(max-min) then begin                        writeln('Lucky Word');                        writeln(max-min);                      end                 else begin                        writeln('No Answer');                        writeln('0');                      end;end;begin  init;  main;  terminate;end.