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

Re: Identical elements

• To: mathgroup at smc.vnet.net
• Subject: [mg88436] Re: Identical elements
• From: "Dana DeLouis" <dana.del at gmail.com>
• Date: Mon, 5 May 2008 06:14:27 -0400 (EDT)

> I have a list  and I need to test whether all the elements in the list

> are identical or no. What is the efficient way to do that? The output

> should be true if all elements are the same and False otherwise. One

> line command is preferred if possible.

 

Hi.  Here's one way.  I assume a list with 1 element returns False.

 

AllEqualQ[v_List] := 

 If[Length[v] == 1, False, Equal[1, KroneckerDelta @@ v]]

 

-- 

HTH :>)

Dana DeLouis

Mathematica 6.01 (Windows Vista)