程序員的算法趣題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