[NOIP2008] 笨小猴

本文主要是介绍[NOIP2008] 笨小猴，希望对大家解决编程问题提供一定的参考价值，需要的开发者们随着小编来一起学习吧！

NOIP2008 笨小猴

时间限制: 1 Sec 内存限制: 128 MB

题目描述

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

输入

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

输出

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

样例输入

error

样例输出

Lucky Word
2

提示

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

vara:string;i,j,k:longint;x:array[0..26]of longint;check:array[0..100]of boolean;prime:array[0..100]of longint;maxn,minn,n,t:longint;
beginn:=100;for i:=2 to n docheck[i]:=true;check[1]:=false;for i:=2 to n dobeginif check[i]=truethenbegininc(t);prime[t]:=i;end;for j:=1 to t dobeginif prime[j]*i>nthen break;check[prime[j]*i]:=false;if i mod prime[j]=0then break;end;end;minn:=maxlongint;readln(a);for i:=1 to length(a) doinc(x[ord(a[i])-96]);for i:=1 to 26 doif x[i]>maxnthen maxn:=x[i]elseif (x[i]<minn)and(x[i]<>0)then minn:=x[i];if check[maxn-minn]=truethenbeginwriteln('Lucky Word');writeln(maxn-minn);endelsebeginwriteln('No Answer');writeln(0);end;
end.

这篇关于[NOIP2008] 笨小猴的文章就介绍到这儿，希望我们推荐的文章对编程师们有所帮助！

---