Re: Union, Sort at different levels of a list
- To: mathgroup at smc.vnet.net
- Subject: [mg65690] Re: Union, Sort at different levels of a list
- From: "Chris Chiasson" <chris.chiasson at gmail.com>
- Date: Sun, 16 Apr 2006 01:44:46 -0400 (EDT)
- References: <e1nn4v$lm8$1@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
How about
Block[{n=3},
Union[Sort/@
Flatten[Table[
Distribute[{{i,j},{k,l}},List],{i,1,n},{j,1,n},{k,1,n},{l,1,n}],
4]]]
or
<<DiscreteMath`Combinatorica`
Block[{n=3},KSubsets[Range[n],2]]
?