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; } }
手动模拟:
时间: 2024-10-11 11:22:39