Re: Quick Question

*To*: mathgroup at smc.vnet.net*Subject*: [mg78104] Re: Quick Question*From*: chuck009 <dmilioto at comcast.com>*Date*: Sat, 23 Jun 2007 07:03:35 -0400 (EDT)

Here's one way. Probably can condense it down to a one-line command using short-cut commands: << DiscreteMath`Combinatorica` mylist = {a, b, c, d, e, f, g} indexlist = RandomPermutation[Length[mylist]] newlist = Table[mylist[[indexlist[[i]]]], {i, 1, Length[mylist]}]