       Re: Efficient way to merge lists--Programming help

• To: mathgroup at smc.vnet.net
• Subject: [mg12725] Re: Efficient way to merge lists--Programming help
• From: "Allan Hayes" <hay at haystack.demon.cc.uk>
• Date: Thu, 4 Jun 1998 02:52:11 -0400
• References: <6l2r6l\$e3p@smc.vnet.net>
• Sender: owner-wri-mathgroup at wolfram.com

```Joel Cannon wrote in message <6l2r6l\$e3p at smc.vnet.net>...
>Cam someone suggest better ways to accomplish the following?
>
>I have two lists containing triplets--test is a rectangular array of
>triplets {x,y,z} (e.g. Dimensions {4,40,3}) and test2 is an array of
>triplets (e.g. Dimensions {50,3}). test2 is to replace equivalent
>elements in test (when the x and y values are equal--the test2 z values
>have been calculated more accurately).
>
>The task can be understood to be:
>
>1. Given a triplet {x_i,y_i,z_i} from test2, find the position in test
>which has the same {x_i,y_i,_}.
>
>2. Replace the element in test by the triplet from test2.
>
>
>I resorted to a loop after I decided that it would take me too much time
>to figure out a better, more elegant solution. Here is what I did:
>
>For[i=1,i<=Length[test2],i++,
>  test = ReplacePart[test,test2[[i]],
>     test//Position[#,{test2[[i]][],test2[[i]][],_}]& //Flatten]];
>

I suspect that the following may be slower, but its different.

test={{1,2,3},{2,3,4},{3,4,5},{4,5,6}}; test2={{2,3,-4},{4,5,-6}};

test/.(test2/.{x_?NumericQ,y_,z_}-> ({x,y,_}->{x,y,z}))

{{1,2,3},{2,3,-4},{3,4,5},{4,5,-6}}

-------------------------------------------------------------
Allan Hayes
Training and Consulting
Leicester UK
http://www.haystack.demon.co.uk
hay at haystack.demon.co.uk
voice: +44 (0)116 271 4198
fax: +44(0)116 271 8642

```

• Prev by Date: Re: Absolute coordinates in Mathematica
• Next by Date: Re: Union[{0},{0.}] = {0,0.}?
• Previous by thread: Re: Efficient way to merge lists--Programming help
• Next by thread: Re: Efficient way to merge lists--Programming help