程序员的算法趣题Perl版

2017-09-30 21:50:37来源:CSDN作者:tyn243222791人点击

分享

做做题~学学perl~

第一题:
求大于10的回文数,要求该回文数的二进制和八进制都必须为回文数;
注:回文数:12321, 14541, 1001001类似这样的数字。

答案:585 1001001001 1111

#! perl#20170925use strict;my $num = 11;my $num2;my $num8;my $count = 1000000;while($count) {    $count--;    $num2 = sprintf "%b", $num;    $num8 = sprintf "%o", $num;    my $res = &isHuiWen($num, $num2, $num8);    if($res) {        last;    }    $num += 2;}sub isHuiWen {    my $sign = 1;    foreach (@_) {        $sign *= &isRight($_);    }    if($sign) {        print "@_/n";        return 1;    }    0;}# use reverse function to find the huiwen numbersub isRight {    my $arg = @_[0];    if($arg eq reverse $arg) {        return 1;    }    0;}

第二题还不会。。。。

第三题
题目:有100张牌,正面是1-100,背面朝上放置,从第二张牌翻面,间隔一张,继续翻面。再从第三张翻面,间隔两张,继续翻面;
求:最后背面朝上的牌的数字。
注:正面朝上翻面则背面朝上;背面朝上翻面则正面朝上。

#! perl#20170930use strict;my $card_total = 100;my @num = (0) x  $card_total;my $n = 2;while($n <= $card_total) {    my $nn = $n - 1;     for(my $i = $nn; $i < $card_total; $i += $n) {        @num[$i] = !@num[$i];    }    $n++;}for(my $i = 0; $i < $card_total; $i++) {    if(!@num[$i]) {        my $j = $i + 1;        print $j, "/n";    }}

答案:
1
4
9
16
25
36
49
64
81
100

最新文章

123

最新摄影

闪念基因

微信扫一扫

第七城市微信公众平台