in reply to RE: Re: How can I improve this?
in thread How can I improve this?
Well, since everyone is posting their permutors, here's mine:
sub permute { my $last = pop @_; unless (@_) { return @$last; } return map { my $left = $_; map "$left$_", @$last } permute(@_); }
In Section
Seekers of Perl Wisdom