Re: nested combinations: algorithm advice?

#!/usr/bin/perl -lanF_
"@F"=~$r[$_-1]&&print"$.,$_"for 1..@r;$_="{@F}.+{@F}";y/ /,/;push@r,jo
+in'|',glob
[download]

Comment on Re: nested combinations: algorithm advice? Download Code

Replies are listed 'Best First'.
Re^2: nested combinations: algorithm advice? by Jasper (Chaplain) on Sep 23, 2004 at 09:44 UTC
`#!/usr/bin/perl -lapF_ for$p(@p){$;.="$_ and $p "if 1<grep"@F"=~$_,split/_/,$p}push@p,$_}{$_=$` [download]	[reply] [d/l]
Re^3: nested combinations: algorithm advice? by Pragma (Scribe) on Sep 24, 2004 at 07:57 UTC
What?! No glob? Bah! Ameteur... :-) ps. I believe you are missing a semicolon.	[reply]