Re: Combinatorics question
- To: mathgroup at smc.vnet.net
- Subject: [mg3323] Re: [mg3288] Combinatorics question
- From: Phil Moore <moorep at MARSHALL.EDU>
- Date: Mon, 26 Feb 1996 02:56:30 -0500
- Sender: owner-wri-mathgroup at wolfram.com
I believe A way to do this in Mathematica would be
biglist = {}
For[i1=1,i1<16,i1++,
For[i2=i1+1,i2<17,i2++,
For[i3=i2+1,i3<18,i3++,
For[i4=i3+1,i4<19,i4++
For[i5=i4+1,i5<20,i5++,
For[i6=i5+1,i6<21,i6++,
Append[biglist,{list[[i1]],list[[i2]],list[[i3]],list[[i4]],
list[[i5]],list[[i6]]} ] (* end of Append *)
] (* end of 6th For *)
] (* end of 5th For *)
] (* end of 4th For *)
] (* end of 3rd For *)
] (* end of 2nd For *)
] (* end of 1rst For *) (* end of command *)
Mathematica may have a much more elegant way to do this, but I
believe this will work.
Phil Moore
moorep at marshall.edu
On Fri, 23 Feb 1996 PESCC at CUNYVM.CUNY.EDU wrote:
> Can somenone help me find the following:
>
> I have a list of 20 numbers, and I would like to list all the
> combinations of these numbers taken 6 at a time. The Binomial
> function tells me there are 38760, but I would like to actually
> see all of them.
> Thanks in advance for your help.
>
>
==== [MESSAGE SEPARATOR] ====