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>
- Re: 1-liner wanted