Anonymous user
Sorting algorithms/Radix sort: Difference between revisions
→{{header|QB64}}
Line 1,897:
NEXT
Next
SUB RadixSort (
ArrayIsInteger
IF errcon& THEN
'* use another stable sort and sort anyway
MergeSort
ELSE
DIM RSMMrec AS MinMaxRec
GetMinMaxArray
IF CGSortLibArr(RSMMrec.min) = CGSortLibArr(RSMMrec.max) THEN EXIT SUB '* no div0 bombs
delta# =
DIM pow2 AS _UNSIGNED _INTEGER64
DIM NtmpN AS _UNSIGNED _INTEGER64
DIM Int64MaxShift AS _INTEGER64: Int64MaxShift = 2 ^ 64
REDIM ct&(
REDIM RadixCGSortLibArr(0 TO 1, finish& - start&) AS DOUBLE
SELECT CASE order&
Line 1,918:
DO UNTIL bits& < 0
FOR i& = start& TO finish&
NtmpN = Int64MaxShift * (
IF NtmpN AND pow2 THEN
tmpradix% = 1
Line 1,924:
tmpradix% = 0
END IF
RadixCGSortLibArr(tmpradix%, ct&(tmpradix%)) =
ct&(tmpradix%) = ct&(tmpradix%) + 1
NEXT
Line 1,930:
FOR i& = 0 TO 1
FOR j& = 0 TO ct&(i&) - 1
c& = c& + 1
NEXT
Line 1,942:
FOR bits& = 0 TO 63
FOR i& = start& TO finish&
NtmpN = Int64MaxShift * (
IF NtmpN AND pow2 THEN
tmpradix% = 1
Line 1,948:
tmpradix% = 0
END IF
RadixCGSortLibArr(tmpradix%, ct&(tmpradix%)) =
ct&(tmpradix%) = ct&(tmpradix%) + 1
NEXT
Line 1,954:
FOR i& = 0 TO 1
FOR j& = 0 TO ct&(i&) - 1
c& = c& + 1
NEXT
| |||