Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2005
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2005

[Date Index] [Thread Index] [Author Index]

Search the Archive

Re: logical indexing using more than one variable in a pure function

  • To: mathgroup at smc.vnet.net
  • Subject: [mg53352] Re: logical indexing using more than one variable in a pure function
  • From: "Astanoff" <astanoff at yahoo.fr>
  • Date: Sat, 8 Jan 2005 02:39:19 -0500 (EST)
  • References: <crkue3$akd$1@smc.vnet.net>
  • Sender: owner-wri-mathgroup at wolfram.com

This is one possible solution :

In[1]:=
myPick[y1_List,y2_List,cond_[y1_List,y2_List]]:=
Select[Transpose[{y1,y2}],cond[#[[1]],#[[2]]]&][[All,1]];
myPick[y1_List,y2_List,cond_[y2_List,y1_List]]:=
Select[Transpose[{y1,y2}],cond[#[[2]],#[[1]]]&][[All,1]];

In[3]:=
x1={2,3,4,5,6};
x2={6,5,4,3,2};

In[5]:=
myPick[x1,x2,x1>x2]

Out[5]=
{5,6}

In[6]:=
myPick[x1,x2,x2<=x1]

Out[6]=
{4,5,6}


hth

Valeri


  • Prev by Date: Export Animation
  • Next by Date: Special Prime Product
  • Previous by thread: Re: logical indexing using more than one variable in a pure function
  • Next by thread: Re: logical indexing using more than one variable in a pure function