Re: 1-liner wanted
- To: mathgroup at smc.vnet.net
- Subject: [mg121651] Re: 1-liner wanted
- From: Bob Hanlon <hanlonr at cox.net>
- Date: Sat, 24 Sep 2011 22:32:02 -0400 (EDT)
- Delivered-to: l-mathgroup@mail-archive0.wolfram.com
- Reply-to: hanlonr at cox.net
givenlist = {{1, 2, 3}, {2, 4, 5}, {6, 7, 8}, {1, 4, 6}, {7, 8,
9}, {11, 12, 13}};
givenlist /. {___, x : {a_, b_, _}, ___, y : {b_, c_, _}, ___,
z : {a_, c_, _}, ___} ->
{x, y, z}
{{1, 2, 3}, {2, 4, 5}, {1, 4, 6}}
givenlist /. {___, {a_, b_, d_}, ___, {b_, c_, e_}, ___, {a_, c_,
f_}, ___} ->
{{a, b, d}, {b, c, e}, {a, c, f}}
{{1, 2, 3}, {2, 4, 5}, {1, 4, 6}}
Bob Hanlon
---- Kent Holing <KHO at statoil.com> wrote:
=============
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