资源描述:
《obtain_some_special_integer 英文文献资料》由会员上传分享,免费在线阅读,更多相关内容在学术论文-天天文库。
1、obtain_some_special_integer.txt#!/usr/bin/perl-w=head1nameobtain_some_special_integer.pl=head1Description1.grepthespecialrangeprimenumbers;2.checkthegivennumberwhetheritisaprimenumberornot;3.grepthespecialrangemersenneprimenumbers;4.getmaxcommondivisorandminmultiplebetweengiv
2、entwonumbers;5.tobeexpected.=head1VersionOriginalfrom:liXiangfeng,xflee0608@163.comVersion:1.0,Date:2014-3-8=head1usageperlobtain_some_special_integer.pl[options]-p,--primeTherangefromwhichyouwanttogrepprimenumbers,mustbeapairarguments;-c,--checkInputanumberyouwantt
3、ocheckwhetheritisaprimenumberornot;-m,--mersenneTherangeyouwanttogrepmersenneprimenumbesr,rangefrom2tothenumberyougive;-d,--divInputthetwonumber,youwillgettheirsmaxcommondivisornumberandminmultiplenumber.youmustbeapairarguments;-h,--helpprinthelpinfo.=head1Examplepe
4、rlobtain_some_special_integer.pl-prime1-prime100#grepprimenumbersfrom1to100;perlobtain_some_special_integer.pl-check986#check986'sattribute;perlobtain_some_special_integer.pl-mersenne600000#grepmersenneprimenumbersfrom2to600000;perlobtain_some_special_integer.pl-div24-div36#g
5、etmaxcommondivisornumberandminmultiplenumberof24and36.=cutusestrict;useGetopt::Long;my(@num,$n,$mersenne,@div,$help);GetOptions("prime:i"=>@num,"check:i"=>$n,"mersenne:i"=>$mersenne,"div:i"=>@div,"help"=>$help,);die`pod2text$0`if($help);#die`pod2text$0`if(!@num
6、
7、!defined
8、$n
9、
10、!defined$mersenne
11、
12、!@div);##grepprimenumberlist##my$num_count=@num;if($num_count==2){第1页obtain_some_special_integer.txtmy@result_grep=&prime(@num);print$_,""foreach@result_grep;}elsif($num_count==1){#die"incorrectinputnumbercount!"}##checkthegivennumberwhetheritisapri
13、menumberornot##my$result_check=&check($n)if($n);##grepmersenneprimenumber##if($mersenne){my@prime_set=&prime(2,$mersenne);my%ha=map{$_=>1}@prime_set;for(my$i=2;;$i++){my$num=2**$i-1;print"$numisthemersenneprime;$num=2**$i-1;"if(exists$ha{$num}&&exists$ha{$i});lastif($num>
14、=$prime_set[-1]);}}##getmaxcommondivisorandminmultiple##my$div_count