Hallo Patrick,
die Root[] stehen als letzter Ausdruck in Rule[] in einer List[], oder
ist Ihr Ausdruck allgemeiner?
Wenn etwa l0 mit dieser Struktur
In[24]:= Clear[l0]
l0 = Flatten[(Solve[#1, {x}] & ) /@ {x^2 + 4*x - 12 == 0, 23 - 7*x + x^5
== 0,
x^7 - 1 == 0}, 1]
geordnet werden soll, dann einfach den Vorschlag von Robert etwas
erweitern:
In[67]:=
Join[Select[l0, (Head[Last[First[#]]] =!= Root) &],
Select[l0, (Head[Last[First[#]]] === Root) &]]
Mit den besten Grüssen
Udo.
@Robert
Das haette es nicht ganz, weil bei mir die Rootsymbole nicht
zwangslaeufig im Funktionskopf gestanden haben.
DMUG-Archiv, http://www.mathematica.ch/archiv.html