eclazz.c

来自「Numerical Recipes Software 提供的算法子程序集」· C语言 代码 · 共 17 行

void eclazz(nf,n,equiv)
int (*equiv)(),n,nf[];
{
	int kk,jj;

	nf[1]=1;
	for (jj=2;jj<=n;jj++) {
		nf[jj]=jj;
		for (kk=1;kk<=(jj-1);kk++) {
			nf[kk]=nf[nf[kk]];
			if ((*equiv)(jj,kk)) nf[nf[nf[kk]]]=jj;
		}
	}
	for (jj=1;jj<=n;jj++) nf[jj]=nf[nf[jj]];
}
/* (C) Copr. 1986-92 Numerical Recipes Software . */