Mathematica 9 is now available
Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2011

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

Search the Archive

1-liner wanted

  • To: mathgroup at smc.vnet.net
  • Subject: [mg121633] 1-liner wanted
  • From: Kent Holing <KHO at statoil.com>
  • Date: Fri, 23 Sep 2011 03:43:26 -0400 (EDT)
  • Delivered-to: l-mathgroup@mail-archive0.wolfram.com

Let's assume we have a list of elements of the type {x,y,z} for x, y and z integers. And, if needed we assume x < y < z. We also assume that the list contains at least 3 such triples.

Can Mathematica easily solve the following problem? To detect at least three elements from the list of the type {a,b,.}, {b,c,.} and {a,c,.}? I am more intereseted in an elegant 1-liner than computational efficient solutions.

Example:
Givenlist ={1,2,3},{2,4,5],{6,7,8},{1,4,6},{7,8,9},{11,12,13}};
should return 
{{1,2,3},{2,4,5},{1,4,6}}

Kent Holing,
Norway




  • Prev by Date: NIntegrate through discontinuities
  • Next by Date: Re: Artistic impression of cloudy structures
  • Previous by thread: NIntegrate through discontinuities
  • Next by thread: Re: 1-liner wanted