Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2010

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

Search the Archive

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 





  • Prev by Date: Re: All componens different
  • Next by Date: Re: All componens different
  • Previous by thread: Re: All componens different
  • Next by thread: Re: All componens different