不是什么新奇的东西,自己也比较笨,前些时候贴在朋友的坛子里的,但他的坛子一向容易风云变幻,在这里备份一下吧。
百度之星程序设计大赛试题-1
第一题:连续正整数
题目描述:一个正整数有可能可以被表示为n(n>=2)个连续正整数之和,如:
15=1+2+3+4+5
15=4+5+6
15=7+8
请编写程序,根据输入的任何一个正整数,找出符合这种要求的所有连续正整数序列。
输入数据:一个正整数,以命令行参数的形式提供给程序。
输出数据:在标准输出上打印出符合题目描述的全部正整数序列,每行一个序列,每个序列都从该序列的最小正整数开始、以从小到大的顺序打印。如果结果有多个序列,按各序列的最小正整数的大小从小到大打印各序列。此外,序列不允许重复,序列内的整数用一个空格分隔。如果没有符合要求的序列,输出“NONE”。
例如,对于15,其输出结果是:
1 2 3 4 5
4 5 6
7 8
对于16,其输出结果是:
NONE
评分标准:程序输出结果是否正确。
今天无事用perl解第一题,俺比较笨想了好半天,看来是老了。
记得他们是要求必须能通过gcc的,呵呵,可要用C代码会变长,我比较懒惰。
Code: |
#!/usr/bin/perl ########################## # by sleetdrop # sleetdrop@gmail.com ########################## print "Please input the number:"; chomp($number = <STDIN>); for($i=2; $i<$number; $i++) { for($j=1; $j<$number; $j++) { if(($i*$j+$i*($i-1)/2)==$number) {
for $x ($j..($j+$i-1)) { push @tmp, $x; }
push (@result, [@tmp]); @tmp = (); }
} } print "The result is here:\n"; if(@result) { while(@result) { $outword=pop(@result); print "@$outword"; print "\n"; } } else { print "NULL"; }
|
第二题:重叠区间大小
题目描述:请编写程序,找出下面“输入数据及格式”中所描述的输入数据文件中最大重叠区间的大小。
对一个正整数n,如果n在数据文件中某行的两个正整数(假设为A和B)之间,即A<=n<=B或A>=n>=B,则n属于该行;如果n同时属于行i和j,则i和j有重叠区间;重叠区间的大小是同时属于行i和j的整数个数。
例如,行(10 20)和(12 25)的重叠区间为[12 20],其大小为9;行(20 10)和(12 18)的重叠区间为[10 12],其大小为3;行(20 10)和(20 30)的重叠区间大小为1。
输入数据:程序读入已被命名为input.txt的输入数据文本文件,该文件的行数在1到1,000,000之间,每行有用一个空格分隔的2个正整数,这2个正整数的大小次序随机,每个数都在1和2^32-1之间。(为便于调试,您可下载测试input.txt文件,实际运行时我们会使用不同内容的输入文件。)
输出数据:在标准输出上打印出输入数据文件中最大重叠区间的大小,如果所有行都没有重叠区间,则输出0。
评分标准:程序输出结果必须正确,内存使用必须不超过256MB,程序的执行时间越快越好。
首先个人感觉第二题的题目有毛病。因为数学不好,所以没敢断言是错题。
前提是这样的。
引用:
对一个正整数n,如果n在数据文件中某行的两个正整数(假设为A和B)之间,即A<=n<=B或A>=n>=B,则n属于该行;如果n同时属于行i和j,则i和j有重叠区间;重叠区间的大小是同时属于行i和j的整数个数。
|
但它给的例子中
引用:
行(20 10)和(12 18)的重叠区间为[10 12],其大小为3
|
不可理解。
如11就属于行(20 10)里,而不属于行(12 18)
我的理解重叠区间应该是[12 18],其大小是7
我真没弄明白,如果哪位给我讲讲,我可以重新写下面的代码了。
首先这里没提供input.txt文件的下载。
我自己写了一个生成程序。如下:
Code: |
#!/usr/bin/perl
srand(); open INPUTTXT, ">input.txt"; $max = 2**32 + 1; $line = 1_000_000; #要生成的行数的多少. print "generating data...\n"; for($i=1;$i<=$line;$i++){ print INPUTTXT int(rand($max))." ". int(rand($max))."\n"; } print "\n"; print "finished!"; close INPUTTXT;
|
如果真的生成1000000行大约能生成一个20多M的文本文件。
下面是解答题目的代码,有些地方比较愚蠢,是因为本人智商有限并且比较懒惰,比如开始就把全部的数据读入内存,读近来大约150多M吧,还没超过256M的限制,还有程序的循环和判断也是比较耗费cpu的。所以如果用上面的程序生成的input.txt,会跑好长时间,事实上我自己都没耐心跑完过,呵呵。还有由于c/c++的流毒作用,所以perl代码写的不伦不类。
Code: |
#!/usr/bin/perl ###################################### # by sleetdrop # sleetdrop@gmail.com ###################################### open INPUTTXT, "< input.txt"; print "loading numbers into memory...\n"; @lines = <INPUTTXT>; print "caculating...\n"; while(@lines) { ($a, $b) = split /\s+/, pop(@lines); if($a>$b) { $tmp=$a; $a=$b; $b=$tmp; }
for(@lines) { ($c, $d) = split /\s+/, $_; if($c>$d) { $tmp=$c; $c=$d; $d=$tmp; } next if($b<$c or $d<$a); $tcnt = $b-$c+1 if($b>$c and $b<$d and $a<$c); $tcnt = $b-$a+1 if($a>=$c and $b<=$d); $tcnt = $d-$c+1 if($c>=$a and $d<=$b); $tcnt = $d-$a+1 if($a>$c and $a<$d and $b>$d); $tcnt = 1 if ($b==$c or $d==$a); } $cnt = ($cnt<$tcnt)?$tcnt:$cnt;
} print "the result is:\n"; print $cnt if($cnt) or print "0";
|