[原创教程] 灵魂图解 —— Perl 递归排列过程

#Code by: rubyish
E_( [ 1 .. 9 ], [] );

sub E_
{
    my ( $a, $b ) = @_;
    #此处省略若干代码
    E_( [ @$a[ 0 .. $_ - 1, $_ + 1 .. $#$a ] ], [ @$b, $a->[$_] ] )
        for 0 .. $#$a;
}
复制代码