Wolfram Cloud Document

List

In[]:=

list={1,1,-1,1,-1,-1,1,-1};

Everything but -1

In[]:=

DeleteCases[list,-1]

Out[]=

{1,1,1,1}

In[]:=

Select[list,#==1&]

Out[]=

{1,1,1,1}

In[]:=

Select[list,#>-1&]

Out[]=

{1,1,1,1}

In[]:=

Select[list,!#==-1&]

Out[]=

{1,1,1,1}

In[]:=

list[[#]]&/@Flatten[Position[list,1]]

Out[]=

{1,1,1,1}