Group Abstract

Message Boards

WOLFRAM COMMUNITY

17.9K Views

4 Replies

1 Total Like

View groups...

Follow this post

Share this post:

GROUPS:

Mathematics Wolfram Language Statistics and Probability

Compare the elements of 2 Lists for similar elements?

Lea Rebanks

Posted 10 years ago

POSTED BY: Lea Rebanks

4 Replies

Sort By:

EDITORIAL BOARD

EDITORIAL BOARD, WOLFRAM

Posted 10 years ago

Dear @Lea Rebanks, you have been getting help on this forum for a long time already, but you still do not post properly your code and moderators forced to edit your posts every time. Please read how to post properly: http://community.wolfram.com/groups/-/m/t/270507

POSTED BY: EDITORIAL BOARD

Lea Rebanks

Posted 10 years ago

Perfect! Many thanks Paul. Really appreciated.

POSTED BY: Lea Rebanks

Tim Mayes

Tim Mayes, Metropolitan State University of Denver

Posted 10 years ago

One way to do this: In[1]:= list1={1,3,4,7,10,12,15,17,19,24,26,29,32,35};list2={2,5,6,7,8,9,11,12,14,19,25,27,29,30}; In[2]:= pos=Position[Table[MemberQ[list1,list2[[i]]],{i,1,Length[list2]}],True]//Flatten Out[2]= {4,8,10,13} In[3]:= list2[[pos]] Out[3]= {7,12,19,29}

One way to do this:

In[1]:= list1={1,3,4,7,10,12,15,17,19,24,26,29,32,35};list2={2,5,6,7,8,9,11,12,14,19,25,27,29,30};
In[2]:= pos=Position[Table[MemberQ[list1,list2[[i]]],{i,1,Length[list2]}],True]//Flatten
Out[2]= {4,8,10,13}
In[3]:= list2[[pos]]
Out[3]= {7,12,19,29}

POSTED BY: Tim Mayes

Paul Cleary

Posted 10 years ago

The first part is quite easy list1 = {1, 3, 4, 7, 10, 12, 15, 17, 19, 24, 26, 29, 32, 35}; list2 = {2, 5, 6, 7, 8, 9, 11, 12, 14, 19, 25, 27, 29, 30}; position = Intersection[list1, list2] There are probably more elegant ways to do the second part, but this works Flatten[Table[ Position[list1, position[[q]]], {q, 1, Length[position]}]] and Flatten[Table[ Position[list2, position[[q]]], {q, 1, Length[position]}]] Paul.

The first part is quite easy

list1 = {1, 3, 4, 7, 10, 12, 15, 17, 19, 24, 26, 29, 32, 
  35}; list2 = {2, 5, 6, 7, 8, 9, 11, 12, 14, 19, 25, 27, 29, 
  30}; position = Intersection[list1, list2]

There are probably more elegant ways to do the second part, but this works

Flatten[Table[
  Position[list1, position[[q]]], {q, 1, Length[position]}]]

and

Flatten[Table[
  Position[list2, position[[q]]], {q, 1, Length[position]}]]

Paul.

POSTED BY: Paul Cleary

Reply to this discussion

Reply Preview

Attachments

Remove Add a file to this post

Follow this discussion

or Discard

Feedback