Re: All componens different
- To: mathgroup at smc.vnet.net
- Subject: [mg112018] Re: All componens different
- From: "David Park" <djmpark at comcast.net>
- Date: Tue, 24 Aug 2010 06:16:16 -0400 (EDT)
v = RandomInteger[{1, 10}, 5]
Length[Union[v]] == Length[v]
David Park
djmpark at comcast.net
http://home.comcast.net/~djmpark/
From: Dr. Wolfgang Hintze [mailto:weh at snafu.de]
Given a list v of natural numbers I'm looking for a function d[v_] that
returns True if all components are different and False otherwise.
One solution is
d1[v_] := ! Or @@ Flatten[Table[v[[i]] == v[[k]], {i, 1, Length[v]},
{k, i + 1, Length[v]}]]
Can you find more efficient (and elegant) solutions?
Regards,
Wolfgang