Question

Consider :

Tuples[Range[1, 3], 2]

I would like to drop some of the sublist based on the following list :

sublistToTemove = {1,2,3,6,8}

Desired Output :

{2, 1}, {2, 2}, {3, 1}

Corresponding to the 4th, 5th and 7th elements of list.

I have tried Drop, Case, Select without success, must be missing something.

Answer 1

Given your list:

In[2]:= lst = Tuples[Range[1, 3], 2]

Out[2]= {{1, 1}, {1, 2}, {1, 3}, {2, 1}, {2, 2}, {2, 3}, {3, 1}, {3,2}, {3, 3}}

and

In[5]:= sublistToTemove = {1, 2, 3, 6, 8}

Out[5]= {1, 2, 3, 6, 8}

Here are 2 ways:

In[6]:= Delete[lst, List /@ sublistToTemove]

Out[6]= {{2, 1}, {2, 2}, {3, 1}, {3, 3}}

In[7]:= lst[[Complement[Range[Length[lst]], sublistToTemove]]]

Out[7]= {{2, 1}, {2, 2}, {3, 1}, {3, 3}}