Given a list like
I would like to very efficiently delete all sublists that are longer than a specific length, i.e.:
My attempt at writing this function is:
delLongSublists[in_,q_]:=DeleteCases[in, Length[_List] > q, 1]
Unfortunately this does not work at all
Any suggestion on how to write this function computationally efficiently?