Sorting algorithms/Quicksort: Difference between revisions

m
Line 2,627:
 
==={{header|IS-BASIC}}===
<langsyntaxhighlight lang=IS-BASIC>100 PROGRAM "QuickSrt.bas"
110 RANDOMIZE
120 NUMERIC A(5 TO 19)
Line 2,663:
440 IF AH<E-1 THEN CALL QSORT(AH,E-1)
450 IF E+1<FH THEN CALL QSORT(E+1,FH)
460 END DEF</langsyntaxhighlight>
 
==={{header|QB64}}===
153

edits