Friday, December 14, 2012

Mathematica delete empty list



DeleteEmpty :=
 Function[l, Replace[l, x_List :> DeleteCases[x, {}], {0, Infinity}]]

No comments:

Post a Comment