My permutor

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

-- Randal L. Schwartz, Perl hacker

Comment on My permutor Download Code

Replies are listed 'Best First'.
Drool by gryng (Hermit) on Jul 25, 2000 at 17:01 UTC
Drool.... Oh I like that. Mmmm, Gryn	[reply]
Re: My permutor by Anonymous Monk on Oct 03, 2004 at 18:45 UTC
does this work? how do you call it?	[reply]


XP is just a number
	PerlMonks