Re: All componens different
- To: mathgroup at smc.vnet.net
- Subject: [mg111999] Re: All componens different
- From: "Harvey P. Dale" <hpd1 at nyu.edu>
- Date: Tue, 24 Aug 2010 06:12:46 -0400 (EDT)
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