a simplification problem
- Subject: a simplification problem
- From: Richard Fateman
- Date: Thu, 26 Jun 2008 14:04:01 -0700
Js:{};
s(x):= if (not(atom (x)) and inpart(x,0)=J )then Js:union(Js,{x});
apply1(t2,s)$
Js;
I suspect it is faster, but it is certainly shorter.