順列列挙(再帰版) #Perl

以前書いたのはSTLをコピーした反復版だったが、再帰版は以下。Perlはシンプル。

permutation.pl

sub permutation {
    my ($first, @rest) = @_; 
    @rest or return [[@_]];

    my @result;
    for (@_) {
        push @rest, $first;
        $first = shift @rest;
        push @result , [$first, @$_]
            for @{permutation(@rest)};
    }   
    return [@result];
}

print @$_ , "\n"
    for @{permutation(1..4)};