Sorting algorithms/Quicksort: Difference between revisions

=={{header|RPL}}==

{{works with|HP|48}}

≪ DUP SIZE → size

≪ '''IF''' size 1 > '''THEN'''

DUP size 2 / CEIL GET { } DUP DUP → pivot less equal greater

≪ 1 size '''FOR''' j

DUP j GET pivot

'''CASE'''

DUP2 < '''THEN''' DROP 'less' STO+ '''END'''

DUP2 == '''THEN''' DROP 'equal' STO+ '''END'''

DROP 'greater' STO+ '''END'''

'''NEXT''' DROP

less <span style="color:blue">QSORT</span>

greater <span style="color:blue">QSORT</span>

equal SWAP + +

≫

'''END'''

≫ ≫ '<span style="color:blue">QSORT</span>' STO