• 洛谷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.  

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

    博文系博主原创,转载请注明出处 o(* ̄▽ ̄*)ブ 更多博文源自https://www.cnblogs.com/yzm10
  • 相关阅读:
    scp(secure copy)安全拷贝
    rsync 远程同步工具
    Ansible:遇到错误 "sudo: /etc/sudoers is world writable sudo: no valid sudoers sources found, quitting
    kafka数据分区的四种策略
    SwitchHosts—hosts管理利器
    HDU 2577 How to Type (字符串处理)
    HDU 1465 不容易系列之一 (错排公式+容斥)
    FZUOJ 2205 据说题目很水 (无三元环图最大边数)
    约瑟夫环问题 ( 最简单的数学解法)
    POJ 3279 Fliptile ( 开关问题)
  • 原文地址:https://www.cnblogs.com/yzm10/p/4747571.html
Copyright © 2020-2023  润新知