Sorting algorithms/Comb sort: Difference between revisions

m
minor edits
m (minor edits)
m (minor edits)
Line 471:
(loop for lo from 0
for hi from gap below input-size
do (when (> (aref input lo) (aref input hi))
do (rotatef (aref input lo) (aref input hi))
(setf swapped t)))
while (or (> gap 1) swapped)
finally (return input)))</lang>
68

edits