Skip to main content

You are not logged in. Your edit will be placed in a queue until it is peer reviewed.

We welcome edits that make the post easier to understand and more valuable for readers. Because community members review edits, please try to make the post substantially better than how you found it, for example, by fixing grammar or adding additional resources and hyperlinks.

3
  • $\begingroup$ An operator version of prune would be prune[x_] = Select[Not@*FreeQ[x]]. $\endgroup$ Commented Nov 8, 2017 at 23:09
  • $\begingroup$ Yes, and I'm sure the pruning could be made more efficient. However, the step after the prune is the most time consuming. $\endgroup$ Commented Nov 9, 2017 at 10:09
  • $\begingroup$ Very nice solution, and indeed in my test more than 5 times faster. Thanks +50 $\endgroup$ Commented Nov 10, 2017 at 12:26