2
Try with partitions[list_, l_] := With[{sub = Subsets[list, {l}, Binomial[Length[list] - 1, l - 1]]}, Flatten[ Table[{#, Sequence @@ i}, {i, partitions[Complement[list, #], l]}] & /@ sub, 1] ] partitions[list_, l_] /; Length[list] === l := {{list}} The list must have ...