home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Programming Tool Box
/
SIMS_2.iso
/
bp_6_93
/
bonus
/
winer
/
chap8-8.bas
< prev
next >
Wrap
BASIC Source File
|
1992-05-12
|
649b
|
29 lines
'*********** CHAP8-8.BAS - shows how SWAP can be faster than assignments
'Copyright (c) 1992 Ethan Winer
REDIM Array(1 TO 500)
CLS
Element% = 200
InsertValue = 999
Start = TIMER
FOR A% = 1 TO 500
FOR X% = UBOUND(Array) TO Element% + 1 STEP -1
Array(X%) = Array(X% - 1)
NEXT
Array(Element%) = InsertValue
NEXT
Done = TIMER
PRINT USING "##.## seconds when assigning"; Done - Start
Start = TIMER
FOR A% = 1 TO 500
FOR X% = UBOUND(Array) TO Element% + 1 STEP -1
SWAP Array(X%), Array(X% - 1)
NEXT
Array(Element%) = InsertValue
NEXT
Done = TIMER
PRINT USING "##.## seconds when swapping"; Done - Start