Może sam algorytm nie jest tak niejasny, ale kto może nazwać implementację, która faktycznie jest używana w praktyce? Mogę!
TIGCC (kompilator oparty na GCC dla kalkulatorów graficznych TI-89/92 / V200) używa sortowania Shell do qsort
implementacji w swojej standardowej bibliotece:
__ATTR_LIB_C__ void qsort(void *list, short num_items, short size, compare_t cmp_func)
{
unsigned short gap,byte_gap,i,j;
char *p,*a,*b,temp;
for (gap=((unsigned short)num_items)>>1; gap>0; gap>>=1) // Yes, this is not a quicksort,
{ // but works fast enough...
byte_gap=gap*(unsigned short)size;
for(i=byte_gap; i<((unsigned short)num_items)*(unsigned short)size; i+=size)
for(p=(char*)list+i-byte_gap; p>=(char*)list; p-= byte_gap)
{
a=p; b=p+byte_gap;
if(cmp_func(a,b)<=0) break;
for(j=size;j;j--)
temp=*a, *a++=*b, *b++=temp;
}
}
}
Wybrano sortowanie powłoki na rzecz szybkiego sortowania, aby utrzymać niski rozmiar kodu. Chociaż jego asymptotyczna złożoność jest gorsza, TI-89 nie ma dużo pamięci RAM (190 KB, minus rozmiar programu i całkowity rozmiar niezarchiwizowanych zmiennych), więc można bezpiecznie założyć, że liczba elementów będzie być nisko.
Szybsze wdrożenie zostało napisane po tym, jak narzekałem, że jest zbyt wolny w pisanym przeze mnie programie. Wykorzystuje lepsze rozmiary szczelin wraz z optymalizacjami montażu. Można go znaleźć tutaj: qsort.c