洛谷1125 笨小猴 解题报告

洛谷1125 笨小猴

本题地址: http://www.luogu.org/problem/show?pid=1125

题目描述

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

输入输出格式

输入格式:

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

输出格式:

输出文件word.out共两行,第一行是一个字符串,假设输入的的单词是Lucky Word,那么输出“Lucky Word”,否则输出“No Answer”;
第二行是一个整数,如果输入单词是Lucky Word,输出maxn-minn的值,否则输出0。

输入输出样例

输入样例#1:

[input1]
error
[input2]
olympic

输出样例#1:

[output1]
Lucky Word
2
[output2]
No Answer
0

说明

【输入输出样例1解释】
单词error中出现最多的字母r出现了3次,出现次数最少的字母出现了1次,3-1=2,2是质数。
【输入输出样例2解释】
单词olympic中出现最多的字母i出现了2次,出现次数最少的字母出现了1次,2-1=1,1不是质数。
//注:此处原题解释有误,实际上是0,也不是质数。
noip2008提高第一题

题解

模拟+质数判断

又是一道模拟题(原来英语选择还可以这样做。。)。

首先我们需要求出单词中出现最多和最少的字母的次数(具体操作请看代码),作差。

重点是质数的判断,我们知道质数是一个大于1的自然数,除了1和它本身外,不能被其他自然数(包括质数)整除,换句话说就是该数除了1和它本身以外不再有其他的因数,否则称为合数。

所以,我们需要用一个函数来枚举因数,如果该数除了1和它本身以外不再有其他的因数,那么它就是我们要找的质数。最后输出结果。

下面附上代码。

代码

  1. program word;  
  2. var  
  3.   l,n,m,maxn,minn,i:longint;  
  4.   s:string;  
  5.   a:array[1..26] of longint;  
  6. function prime(a:longint):boolean;  
  7.   begin  
  8.     prime:=true;  
  9.     if (a=0) or (a=1) then  
  10.       begin  
  11.         prime:=false;  
  12.         exit;  
  13.       end;  
  14.     if a=then exit;  
  15.     for i:=to trunc(sqrt(a)+0.5) do  
  16.       begin  
  17.         if (a mod i=0) then prime:=false;  
  18.         break;  
  19.       end;  
  20.   end;  
  21. begin  
  22.   readln(s);  
  23.   maxn:=0;  
  24.   minn:=100;  
  25.   m:=0;  
  26.   fillchar(a,sizeof(a),0);  
  27.   l:=length(s);  
  28.   for i:=to l do  
  29.     inc(a[ord(s[i])-96]);  
  30.   for i:=to 26 do  
  31.     begin  
  32.       if a[i]>maxn then maxn:=a[i];  
  33.       if (a[i]<minn) and (a[i]<>0) then minn:=a[i];  
  34.     end;  
  35.   m:=maxn-minn;  
  36.   if prime(m) then  
  37.     begin  
  38.       writeln('Lucky Word');  
  39.       writeln(m)  
  40.     end  
  41.   else  
  42.     begin  
  43.       writeln('No Answer');  
  44.       writeln(0);  
  45.     end;  
  46. end.  

(本文系笔者原创,未经允许不得转载)

posted @ 2015-08-21 12:56  yzm10  阅读(722)  评论(0编辑  收藏  举报