home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh2x / sh24b.d64 / quicksort (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  558b  |  22 lines
  1. 100 DIM F%(1000),L%(50),R%(50)
  2. 105 INPUT"[193]NZAHL DER [197]LEMENTE:";N%
  3. 110 PRINT"[198]ELD FUELLEN...  ";:T=TI
  4. 130 FORI=1TON%:F%(I)=RND(1)*32000:NEXT
  5. 140 T=TI-T:PRINTT/60"SEC"
  6. 160 PRINT"[198]ELD SORTIEREN... ";:T=TI
  7. 180 L%(1)=1:R%(1)=N%:T%=0:GOSUB500
  8. 190 T=TI-T:PRINTT/60"SEC"
  9. 220 GOTO105
  10. 230 :
  11. 500 T%=T%+1:IFL%(T%)>=R%(T%)THEN600
  12. 510 L%=L%(T%):R%=R%(T%):V%=F%((L%+R%)/2)
  13. 520 IFL%>R%THEN580
  14. 530 IFF%(L%)<V%THENL%=L%+1:GOTO530
  15. 540 IFF%(R%)>V%THENR%=R%-1:GOTO540
  16. 550 IFL%>R%THEN580
  17. 560 H%=F%(L%):F%(L%)=F%(R%):F%(R%)=H%
  18. 570 L%=L%+1:R%=R%-1:GOTO520
  19. 580 R%(T%+1)=R%:L%(T%+1)=L%(T%):GOSUB500
  20. 590 L%(T%+1)=L%:R%(T%+1)=R%(T%):GOSUB500
  21. 600 T%=T%-1:RETURN
  22.