Stuff

#define eq(A,B) (!less(A,B)&& !less(B,A))

void quicksort(Item a[],int l,int r)
{
    int i,j,k,p,q;
    Item v;
    
    if (r <=l) return;
    
    v=a[r];
    i=l-1;
    j=r;
    p=l-1;
    q=r;

    for(;;) {
        while (less(a[++i],v));
        
        while (less(v,a[--j]))
            if (j==l) break;

        if (i>=j) break;

        exch(a[i],a[j]);
        if (eq(a[i],v)) {
            p++;
            exch(a[p],a[i]);
        }
        
        if (eq(v,a[j])) {
            q--;
            exch(a[q],a[j]);
        }
    }
    exch(a[i],a[r]);
    
    j=i-1;
    i=i+1;

    for (k=l ; k<p;k++,j++)
        exch(a[k],a[j]);

    for (k=r-1;k>q;k--,i++)
        exch(a[k],a[i]);

    quicksort(a,l,j);
    quicksort(a,i,r);
}