笨小猴

 

笨小猴

(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.