4 lines
92 B
Text
4 lines
92 B
Text
|
GoodBad[i_List]:=Not[MatchQ[Differences[i],{1..}|{}]]
|
||
|
|
n=5
|
||
|
|
Select[Subsets[Range[n]],GoodBad]
|