Re: Nested List Abs[]
- To: mathgroup at smc.vnet.net
- Subject: [mg121049] Re: Nested List Abs[]
- From: Dana DeLouis <dana01 at me.com>
- Date: Thu, 25 Aug 2011 07:04:46 -0400 (EDT)
- Delivered-to: l-mathgroup@mail-archive0.wolfram.com
> How do I delete from the larger list any integer pair
> whose numerical distance apart is greater than one?
Here`s just another of many options:
m=RandomInteger[{-2,2},{10,2}]
{{-1,2},{1,-2},{2,2},{1,-1},{-1,-2},{-2,-2},{2,1},{-2,-1},{1,-2},{2,0}}
Select[m,EuclideanDistance@@#<=1 &]
{{2,2},{-1,-2},{-2,-2},{2,1},{-2,-1}}
Note: These were removed from the list:
Complement[m,%]
{{-1,2},{1,-2},{1,-1},{2,0}}
= = = = = = = = = = =
HTH :>)
Dana DeLouis
$Version
8.0 for Mac OS X x86 (64-bit) (November 6, 2010)
On Aug 24, 3:18 am, Sam Korn <s... at kornfamily.com> wrote:
> I have a list, and each element of the
> list is a sublist with two integers. How do I delete from the larger
> list any integer pair whose numerical distance apart is greater than
> one? I'd been trying to map Abs[Subtract[#1,#2]]&<1 over the list, but
> so far that hasn't worked.
>
> Any suggestions?
>
> Sent from my iPhone