eclazz.txt

Visual Basic 常用数学算法集书中收录了所有代码

Sub ECLAZZ(NF(), N)
    NF(1) = 1
    For JJ = 2 To N
        NF(JJ) = JJ
        For KK = 1 To JJ - 1
            NF(KK) = NF(NF(KK))
            If EQUIV(JJ, KK) Then NF(NF(NF(KK))) = JJ
        Next KK
    Next JJ
    For JJ = 1 To N
        NF(JJ) = NF(NF(JJ))
    Next JJ
End Sub