1 A = EmptySet;
2 forall(v:V)
3 Bv={v};
4 Erzeuge eine Liste L der Kanten in E, welche gemäß
5 nicht-fallenden Kantenkosten sortiert ist;
6 forall (u,v):L {
7 B1=FIND(u);
8 B2=FIND(v);
9 if(B1!=B2)
10 A=[A,{(u,v)}];
11 UNION(B1, B2, B1);
12 }