Re: All componens different

• To: mathgroup at smc.vnet.net
• Subject: [mg112014] Re: All componens different
• From: Herman Kuun <oomkoos1 at gmail.com>
• Date: Tue, 24 Aug 2010 06:15:30 -0400 (EDT)

```Another solution

d1[v_] := (
list = v // Flatten;
Length[list] == Length[Union[list, list]]
)

Simple example:

listV1 = {1, {2, 3}, 4, 5};
listV2 = {1, {2}, {2, 3}, 4};

d1[listV1]
True

d1[listV2]
False

Regards

On Mon, Aug 23, 2010 at 8:51 AM, Dr. Wolfgang Hintze <weh 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?
>
> 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