simple modification of Solve

*To*: mathgroup at smc.vnet.net*Subject*: [mg72693] simple modification of Solve*From*: "dimitris" <dimmechan at yahoo.com>*Date*: Mon, 15 Jan 2007 05:51:45 -0500 (EST)

I introduce the following trivial modification of (the output of) Solve solveMod[eq_Equal, x_] := ({x -> #1[[1]], If[Length[#1] > 1, StringJoin[ToString[Length[#1]], "-ple root"], "simple root"]} & ) /@ Split[x /. Solve[eq, x]]//(TableForm[#1, TableAlignments -> Center, TableHeadings -> {None, {"root\n", "multiplicity\n"}}] & ) Here is a simple application solveMod[(x - 1)^2*x*(x - 3)^3*(x + 5)^5*(x + 2) == 0, x] I look for other possible similar one-liners. Any response will be greatly appreciate. Dimitris