Re: All componens different
- To: mathgroup at smc.vnet.net
- Subject: [mg111997] Re: All componens different
- From: Ray Koopman <koopman at sfu.ca>
- Date: Tue, 24 Aug 2010 06:12:24 -0400 (EDT)
- References: <i4t5qb$g2q$1@smc.vnet.net>
On Aug 22, 11:51 pm, "Dr. Wolfgang Hintze" <w... at snafu.de> wrote: > 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? Unequal @@ v