by tilly (Archbishop)

on May 04, 2001 at 15:16 UTC ( [id://77981]=note: print w/replies, xml )

Need Help??

This is an archived low-energy page for bots and other anonmyous visitors. Please sign up if you are a human and want to interact.

Non-recursive, handles repeated elements?

sub permute{
@r=[];$e=$_,@r=map{@a=@$_;map{@b=@a;splice(@b,$_,0,$e);[@b]}0..@a}@r f
+or@_;@r
}
[download]

77 chars...

UPDATE
75...

sub permute{
@r=[];$e=$_,@r=map{@a=@$_;map[@a[0..$_-1],$e,@a[$_..$#a]],0..@a}@r for
+@_;@r
}
[download]

Comment on Re (tilly) 2: (Golf) Per Mutations Select or Download Code

In Section Meditations

Domain Nodelet^?

Node Status^?

node history
Node Type: note [id://77981]
help

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Notices^?

	• hippo	‥ epoptai's answer Re: how do I set a cookie and redirect was blessed by hippo!
	• erzuuli	‥ Anonymous Monks are no longer allowed to use Super Search, due to an excessive use of this resource by robots.