subst([x = '(random(10000))], ...)



Idle question for a gloomy Sunday: Is it possible to do things like this 
without the ev(xxx, random)?

 (%i1) eee : subst([x = '(random(10000))],[x+a,x+a]);
 (%o1) [a+random(10000),a+random(10000)]

OK, more-or-less:

 (%i2) ev(eee, random);
 (%o2) [a+1612,a+9302]

The ev call complicates the calculation:

 (%i3) (a :b ,b : c, c : d, d : e, e : f)$

 (%i4) eee : subst([x = '(random(10000))],[x+a,x+a]);
 (%o4) [b+random(10000),b+random(10000)]

 (%i5) ev(eee,random);
 (%o5) [c+6734,c+4585]

--Barton