[Maxima-discuss] improved factorlist...

[Richard F. <fa...@gm...>]

*factorlist(r) := map(lambda([k], if listp(k) then k else [k,1]),*
*               psubst([ "^"="[","*"="[" ], factor(r)))*

factorlist(24)  returns [[2,3],[3,1]]
v:ratexpand(x^2*(y+z)^3) ;
factorlist(v)  returns
 [[x,2],[z+y,3]]

ifactors() works only on integers.