MathGroup Archive 2010

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

Search the Archive

Re: All componens different


Length[Union[v]]====1

	Best,

	Harvey



-----Original Message-----
From: Dr. Wolfgang Hintze [mailto:weh at snafu.de]
Sent: Monday, August 23, 2010 2:52 AM
To: mathgroup at smc.vnet.net
Subject: [mg111999] [mg111996] All componens different

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: Solve[Function] 2 quick questions
  • Next by Date: Re: All componens different
  • Previous by thread: Re: All componens different
  • Next by thread: Re: All componens different