桶排序3.3

Procedure SORTSK
{    read(I[1],I[2],...,I[k]);
     read(S[1,I[1]],S[2,I[2]],...,S[k,I[k]])
     置桶B[1],B[2],...,B[n]为空；
     for(i=1;i<=k;i++)
    {
         j=I[i];
         for(h=1;h<=j;h++)
         将i置入桶B[S[i,h]]中;
    }
    for(i=1;i<=k;i++)  I[i]=1;
    for(i=1;i<=n;i++) 
    while(B[i]非空)
    {
        j=B[i]中的顶部元素;
        S[j,I[j]]=i;
        I[j]=I[j]+1;
    }

}