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