🚀 go-pugleaf

Heb het intussen al gevonden ...
stom van mij...

Ares Lagae wrote:

> Wat is mis met volgend QuickSort Algoritme ?
>
> Vertex is een record met een x en y waarde
> de array van vertices worden gesorteerd op x waarde
>
> procedure SortVertices(var VertexArray: TVertexArray; l, r: integer);
> var i, j: Integer;
>     Vertex: TVertex;
> begin
> repeat
>   i := L;
>   j := R;
>   Vertex := VertexArray[(L + R) shr 1];
>   repeat
>     while VertexArray[i].x < Vertex.x do Inc(I);
>     while VertexArray[j].x > Vertex.x do Dec(J);
>     if i <= j then begin
>       Vertex := VertexArray[i];
>       VertexArray[i] := VertexArray[j];
>       VertexArray[J] := Vertex;
>       Inc(I);
>       Dec(J);
>       end;
>   until i > j;
>   if l < j then SortVertices(VertexArray, L, j);
>   l := i;
> until i >= r;
> end;