home *** CD-ROM | disk | FTP | other *** search
/ Collection of Hack-Phreak Scene Programs / cleanhpvac.zip / cleanhpvac / WINER.ZIP / CHAP8-8.BAS < prev    next >
BASIC Source File  |  1992-05-13  |  649b  |  29 lines
  1. '*********** CHAP8-8.BAS - shows how SWAP can be faster than assignments
  2.  
  3. 'Copyright (c) 1992 Ethan Winer
  4.  
  5. REDIM Array(1 TO 500)
  6. CLS
  7. Element% = 200
  8. InsertValue = 999
  9.  
  10. Start = TIMER
  11. FOR A% = 1 TO 500
  12.   FOR X% = UBOUND(Array) TO Element% + 1 STEP -1
  13.     Array(X%) = Array(X% - 1)
  14.   NEXT
  15.   Array(Element%) = InsertValue
  16. NEXT
  17. Done = TIMER
  18. PRINT USING "##.## seconds when assigning"; Done - Start
  19.  
  20. Start = TIMER
  21. FOR A% = 1 TO 500
  22.   FOR X% = UBOUND(Array) TO Element% + 1 STEP -1
  23.     SWAP Array(X%), Array(X% - 1)
  24.   NEXT
  25.   Array(Element%) = InsertValue
  26. NEXT
  27. Done = TIMER
  28. PRINT USING "##.## seconds when swapping"; Done - Start
  29.