lindenmannm@3: A = EmptySet;
lindenmannm@3: forall(v:V)
lindenmannm@3:     Bv={v};
lindenmannm@3: Erzeuge eine Liste L der Kanten in E, welche gemäß
lindenmannm@3: nicht-fallenden Kantenkosten sortiert ist;
lindenmannm@3: forall (u,v):L {
lindenmannm@3:     B1=FIND(u);
lindenmannm@3:     B2=FIND(v);
lindenmannm@3:     if(B1!=B2)
lindenmannm@3:         A=[A,{(u,v)}];
lindenmannm@3:         UNION(B1, B2, B1);
lindenmannm@3: }