Re: Nested List Abs[]
- To: mathgroup at smc.vnet.net
- Subject: [mg121039] Re: Nested List Abs[]
- From: Bob Hanlon <hanlonr at cox.net>
- Date: Wed, 24 Aug 2011 07:50:05 -0400 (EDT)
- Delivered-to: l-mathgroup@mail-archive0.wolfram.com
- Reply-to: hanlonr at cox.net
data = RandomReal[{0, 2}, {100, 2}];
data2 = Select[data, Abs[#[[1]] - #[[2]]] < 1 &];
data3 = Select[data, Abs[Subtract @@ #] < 1 &];
data2 == data3
True
Length[data2]
71
Bob Hanlon
---- Sam Korn <sam 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