sub t{!@_&&print@r,"\n";for my $i(0..$#_){push@r,$_[$i];t(@_[0..$i-1], +@_[$i+1..$#_]);pop@r}} [download]
In reply to Re: (Golf) Per Mutations by arhuman in thread (Golf) Per Mutations by MeowChow