note
merlyn
Well, since everyone is posting their permutors, here's mine:
<code>
sub permute {
my $last = pop @_;
unless (@_) {
return @$last;
}
return map { my $left = $_; map "$left$_", @$last } permute(@_);
}
</code>
<p>-- <a href="http://www.stonehenge.com/merlyn/">Randal L. Schwartz, Perl hacker</a></p>
24230
24243