Question: I have a nested list as the following example (want to remove lists with same or incremented elements such as `{1,2,3,4,5}, {2,2,2,2,2}, {1,1,1,1,1}`):

```
test={{1,2,3,4,5}, {1,1,1,1,1}, {2,4,6,8,10}, {2,2,2,2,2}, {3,5,2,4,8}};
test1=DeleteCases[test,{1,2,3,4,5}];
test1=DeleteCases[test1,{1,1,1,1,1}];
test1=DeleteCases[test1,{2,2,2,2,2}];

```

So the result is `test1={{3,5,2,4,8}}`(here I also delete the case {2,4,6,8,10} due to the equal increaments).

With the above way I can get the list which removes the list that elements are the same or incremented. 

The problem is ***when the `test` is very large and I don't know what exactly elements are***, how can I efficiently remove the lists where elements are the same or incremented? Is there a clever way to do this?

Thanks for all the help in advance!

Answer: 
```
Select[test, (! Equal @@ #) && (! AllTrue[Differences[#], EqualTo[1]]) &]

```
I think the OP wanted to remove sub-lists that used any constant increment, be it 0, 1, or some larger integer. The expression

```
Select[test, Length@Intersection@Differences[#] > 1 &]

```

removes all sub-lists with a constant increment (including in the example, those with increments of 0, 1, and 2).