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.