洛谷 1125——笨小猴(简单的模拟)
题目描述
笨小猴的词汇量很小,所以每次做英语选择题的时候都很头疼。但是他找到了一种方法,经试验证明,用这种方法去选择选项的时候选对的几率非常大!
这种方法的具体描述如下:假设maxn是单词中出现次数最多的字母的出现次数,minn是单词中出现次数最少的字母的出现次数,如果maxn-minn是一个质数,那么笨小猴就认为这是个Lucky Word,这样的单词很可能就是正确的答案。
输入输出格式
输入格式:
输入文件word.in只有一行,是一个单词,其中只可能出现小写字母,并且长度小于100。
输出格式:
输出文件word.out共两行,第一行是一个字符串,假设输入的的单词是Lucky Word,那么输出“Lucky Word”,否则输出“No Answer”;
第二行是一个整数,如果输入单词是Lucky Word,输出maxn-minn的值,否则输出0。
输入输出样例
输入样例#1:
error
输出样例#1:
Lucky Word
2
输入样例#2:
olympic
输出样例#2:
No Answer
0
说明
【输入输出样例1解释】
单词error中出现最多的字母r出现了3次,出现次数最少的字母出现了1次,3-1=2,2是质数。
【输入输出样例2解释】
单词olympic中出现最多的字母i出现了2次,出现次数最少的字母出现了1次,2-1=1,1不是质数。
//注:此处原题解释有误,实际上是0,也不是质数。
noip2008提高第一题
简单的模拟,找出每个字母的出现次数,用最大的减去最小的。在判断是否为质数。就是这么简单。
var s:string;
i,max,min:longint;
a:array[1..26]of longint;
begin
readln(s);
for i:=1 to length(s) do
if (s[i]>='a')and(s[i]<='z') then inc(a[ord(s[i])-96]);
max:=0;
min:=maxlongint;
for i:=1 to 26 do
if a[i]>max then max:=a[i]
else if (a[i]<min)and(a[i]>0) then min:=a[i];
max:=max-min;
if (max=0)or(max=1) then
begin
writeln('No Answer');
writeln('0');
end
else
begin
for i:=2 to trunc(sqrt(max)) do
if max mod i=0 then
begin
writeln('No Answer');
writeln('0');
end;
writeln('Lucky Word');
writeln(max);
end;
end.var s:string;
i,max,min:longint;
a:array[1..26]of longint;
begin
readln(s);
for i:=1 to length(s) do
if (s[i]>='a')and(s[i]<='z') then inc(a[ord(s[i])-96]);
max:=0;
min:=maxlongint;
for i:=1 to 26 do
if a[i]>max then max:=a[i]
else if (a[i]<min)and(a[i]>0) then min:=a[i];
max:=max-min;
if (max=0)or(max=1) then
begin
writeln('No Answer');
writeln('0');
end
else
begin
for i:=2 to trunc(sqrt(max)) do
if max mod i=0 then
begin
writeln('No Answer');
writeln('0');
end;
writeln('Lucky Word');
writeln(max);
end;
end.