Sorting algorithms/Quicksort: Difference between revisions
Content deleted Content added
Line 2,627: | Line 2,627: | ||
==={{header|IS-BASIC}}=== |
==={{header|IS-BASIC}}=== |
||
< |
<syntaxhighlight lang=IS-BASIC>100 PROGRAM "QuickSrt.bas" |
||
110 RANDOMIZE |
110 RANDOMIZE |
||
120 NUMERIC A(5 TO 19) |
120 NUMERIC A(5 TO 19) |
||
Line 2,663: | Line 2,663: | ||
440 IF AH<E-1 THEN CALL QSORT(AH,E-1) |
440 IF AH<E-1 THEN CALL QSORT(AH,E-1) |
||
450 IF E+1<FH THEN CALL QSORT(E+1,FH) |
450 IF E+1<FH THEN CALL QSORT(E+1,FH) |
||
460 END DEF</ |
460 END DEF</syntaxhighlight> |
||
==={{header|QB64}}=== |
==={{header|QB64}}=== |