程序员的算法趣题Perl版

做做题~学学perl~

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

答案：585 1001001001 1111

#! perl
#20170925
use 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 number
sub isRight {

    my $arg = @_[0];
    if($arg eq reverse $arg) {

        return 1;
    }

    0;
}

第二题还不会。。。。

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

#! perl

#20170930
use 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