My permutor

[merlyn]

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(@_);
}

-- Randal L. Schwartz, Perl hacker

[gryng]

Drool....

Oh I like that.

Mmmm,
Gryn

[Anonymous Monk]

does this work? how do you call it?