15iqck.c

用途比较广泛的常用算法程序集C语言第13

  #include "15ibub.c"
  void iqck(p,n)
  int n,p[];
  { int m,i0,*i,s0,*s;
    void isplit();
    i=&i0;
    if (n>10)
      { isplit(p,n,i);
        m=i0;
        iqck(p,m);
	s=p+(i0+1);
        m=n-(i0+1);
        iqck(s,m);
      }
    else ibub(p,n);
    return;
  }

  static void isplit(p,n,m)
  int n,*m,p[];
  { int i,j,k,l,t;
    i=0; j=n-1;
    k=(i+j)/2;
    if ((p[i]>=p[j])&&(p[j]>=p[k])) l=j;
    else if ((p[i]>=p[k])&&(p[k]>=p[j])) l=k;
    else l=i;
    t=p[l]; p[l]=p[i];
    while (i!=j)
      { while ((i<j)&&(p[j]>=t)) j=j-1;
        if (i<j)
          { p[i]=p[j]; i=i+1;
            while ((i<j)&&(p[i]<=t)) i=i+1;
            if (i<j)
              { p[j]=p[i]; j=j-1;}
          }
      }
    p[i]=t; *m=i;
    return;
  }