Re: matrix
- To: mathgroup at smc.vnet.net
- Subject: [mg107117] Re: matrix
- From: Peter Pein <petsie at dordos.net>
- Date: Wed, 3 Feb 2010 06:10:10 -0500 (EST)
- References: <hk8nkh$8fs$1@smc.vnet.net> <hk93da$f6v$1@smc.vnet.net>
Am 02.02.2010 12:47, schrieb Ray Koopman: ... > > m = {{1,2},{3,4},{5,6},{7,8}}; > n = {{1,8},{5,0},{9,7}}; > mn = Alternatives @@ Intersection[ > m1 = m[[All,1]], n1 = n[[All,1]] ] > m1 = Pick[m,m1,mn] > n1 = Pick[n,n1,mn] > > 1|5 > {{1,2},{5,6}} > {{1,8},{5,0}} > Sorry, I overlooked this solution which is similar to mine. Peter