Re: Unique List
- To: mathgroup at christensen.cybernetics.net
- Subject: [mg367] Re: [mg358] Unique List
- From: Count Dracula <lk3a at kelvin.seas.virginia.edu>
- Date: Tue, 27 Dec 1994 16:04:55 -0500
"Love" == Robert B Love <rlove at raptor.rmNUG.ORG> writes:
Love> OK, time for a little fun. I can generate a list of random
Love> integers as Table[Random[Integer,{1,42}],{6}] and I get a list 6
Love> elements long containing the integers from 1 to 42. But how do I
Love> make sure no elements are repeated.
Love> I'm trying to simulate a lottery pick of 6 numbers between 1 and
Love> 42 but no repeats are allowed. Any clever tricks to get a list
Love> with no members repeated?
Love> Thanx, Good Luck and Happy New Year to all.
Try the Combinatorica package in the DiscreteMath directory:
In[2]:= <<DiscreteMath`Combinatorica`
In[3]:= RandomKSubset[Range[1,42], 6]
Out[3]= {13, 15, 16, 21, 31, 33}
In[4]:= RandomKSubset[Range[1,42], 6]
Out[4]= {2, 12, 26, 36, 41, 42}
___________________________________________________________________________________
Levent Kitis lk3a at cars.mech.virginia.edu lk3a at kelvin.seas.virginia.edu
University of Virginia Department of Mechanical, Aerospace and Nuclear Engineering
___________________________________________________________________________________