Потребовалось тут – реализовал.
Причем оно, на самом деле, на строки не завязано.
ahocorasik:match([[{1,2,3}],[{3,2,1}], [{3,3,3},{1,2,3}]],[{1,2,3},4,5,6,7,8,{3,3,3},{1,2,3}]).
[{[{1,2,3}],[1,8]},{[{3,3,3},{1,2,3}],[7]}]
Originally published at U.F.M's Homepage. You can comment here or there.