2580
社区成员
LOCAL lnTemp,lnArrlen,lcarrNo,lcBubbletime,lcMergetime
lnArrlen = 5000
CLEAR
**Get Array
DIMENSION arr(lnArrlen)
FOR i = 1 TO lnArrlen
arr(i) = ROUND(rand()*lnArrlen*10,0)
ENDFOR
ACOPY(arr,originalArr)
**Bubble Sort
T1 = SECONDS()
FOR i = 1 TO lnArrlen
FOR j = i + 1 TO lnArrlen
IF arr(i) > arr(j)
lnTemp = arr(i)
arr(i) = arr(j)
arr(j) = lnTemp
ENDIF
ENDFOR
ENDFOR
T2 = SECONDS()
lcBubbletime = 'BubbleSort用时: '+ALLTRIM(STR(T2-T1,10,3))+'秒'
**Recovery
ACOPY(originalArr,arr)
**Merge Sort
T1 = SECONDS()
FOR i = 1 TO lnArrlen
lcarrNo = ALLTRIM(STR(i))
DIMENSION arr&lcarrNo(1)
arr&lcarrNo(1) = arr(i)
ENDFOR
DIMENSION arrNow(lnArrlen)
arrNow(1) = arr1(1)
FOR i = 1 TO lnArrlen - 1
lcarrNo = ALLTRIM(STR(i))
isAdd = .F.
FOR j = 1 TO i
IF arrNow(j) > arr&lcarrNo(1)
AINS(arrNow,j)
arrNow(j) = arr&lcarrNo(1)
j = i + 1
isAdd = .T.
ENDIF
ENDFOR
IF !isAdd
AINS(arrNow,j)
arrNow(j) = arr&lcarrNo(1)
ENDIF
ENDFOR
T2 = SECONDS()
lcMergetime = 'MergeSort用时: '+ALLTRIM(STR(T2-T1,10,3))+'秒'
**Result
MESSAGEBOX('共'+ALLTRIM(STR(lnArrlen))+'个数'+ CHR(13) +lcBubbletime + CHR(13) + lcMergetime,48,'Tip')