Re: Generate all k-tuples
- To: mathgroup at smc.vnet.net
- Subject: [mg36222] Re: [mg36181] Generate all k-tuples
- From: Rob Pratt <rpratt at email.unc.edu>
- Date: Tue, 27 Aug 2002 02:07:32 -0400 (EDT)
- Sender: owner-wri-mathgroup at wolfram.com
On Mon, 26 Aug 2002, Bob wrote:
> Is there an easy (elegant?) way to generate the set of all k-tuples
> taking values from some set (list) S? I want the arguments of the
> function to be k (the length of the tuples) and the set S. That is,
> KTuples[3,{a,b}] should produce
> {{a,a,a},{a,a,b},{a,b,a},{a,b,b},{b,a,a},{b,a,b},{b,b,a},{b,b,b}}.
Method 1:
Distribute[Table[{a,b},{3}],List]
Method 2:
Needs["DiscreteMath`Combinatorica`"];
Strings[{a,b},3]
Rob Pratt
Department of Operations Research
The University of North Carolina at Chapel Hill
rpratt at email.unc.edu
http://www.unc.edu/~rpratt/