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

**Follow-Ups**:**Re: 1-liner wanted***From:*Ulrich Arndt <ulrich.arndt@data2knowledge.de>