MathGroup Archive 2006

[Date Index] [Thread Index] [Author Index]

Search the Archive

Re: Union, Sort at different levels of a list


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]]

?


  • Prev by Date: unable to FullSimplify
  • Next by Date: Re: ViewPoint selector
  • Previous by thread: Union, Sort at different levels of a list
  • Next by thread: Re: Union, Sort at different levels of a list