原来递归排列如此省代码

&test(0,1,2,3,4);  #第一个参数代表层数0,其他都是排列元素
<STDIN>;

sub test {
        my @arr=@_;
        shift @arr;
        my @tmparr=@arr;
        if ($_[0]>$#arr) {print  "@arr\n";return;}
        foreach ($_[0]..$#arr) {
                $tmparr[$_]=$tmparr[$_[0]];
                $tmparr[$_[0]]=$arr[$_];
                &test($_[0]+1,@tmparr);
        }
}

perl的各种好用啊
shift ,
$#arr
都是直接的。

    同时也被很多人诟病。