Soweit ich weiß sortiert der Quicksort aufsteigend jedes mit jedem.
Das heißt, die innere Schleife j würde immer von i+1 bis zum Ende laufen müssen.
Ich würde die Schleifen so formulieren:
($i=0; $i < scalar @a - 1; $i++)
und
($j=$i+1; $j < scalar @a; $j++)
Und dann innerhalb der $j Schleife einfach schauen, ob das Element j kleiner als das Element i ist und ggf. tauschen.
Eine rekursive Verschachtelung braucht es nicht.

Ansonsten noch etliche Kleinigkeiten die ich ändern würde, auf die es aber nicht für die Sortierung ankommt.
Last edited: 2013-12-12 09:57:58 +0100 (CET)