素數(shù)——判斷一個數(shù)是否為超級素數(shù)

*** 判斷一個數(shù)是否為超級素數(shù) By Tiger5392 (C)Copyright 2006-2006
    ***
    *** 相關(guān)知識
    *** 超級素數(shù)：一個素數(shù)，去掉個位是素數(shù)；去掉個位和十位也是素數(shù)；......；
    *** 直到保留到位依然是素數(shù)，這個素數(shù)稱為超級素數(shù)。
    ***
    *** 編程思路
    *** 1.素數(shù)一定不能是1。給定的數(shù)若為超級素數(shù)，則高位不能是1。
    *** 2.素數(shù)一定不能被2整除(2除外)。給定的數(shù)若為超級素數(shù)，則各位數(shù)字不能含有0,2,4,6,8(高位2除外)。
    *** 3.素數(shù)一定不能被5整除(5除外)。給定的數(shù)若為超級素數(shù)，則各位數(shù)字不能含有0,5(高位5除外)。
    *** 4.經(jīng)過分析，有這樣的結(jié)論：
    *** (1)高位可能為2,3,5,7，而絕對不能是0,1,4,6,8,9；
    *** (2)除高位外的其它各位數(shù)字可能是1,3,7,9，而絕對不能是0,2,4,5,6,8。
    ***
    PARAMETERS nNum
    PRIVATE nNum,nNum1,cNum,nCnt,lIsSupperPrime
    IF TYPE("nNum")#CHR(78) OR INT(nNum)#nNum OR nNum<1 &&參數(shù)為大于0的整數(shù)
     RETURN .F.
    ENDIF
    lIsSupperPrime=INLIST(VAL(SUBSTR(ALLTRIM(STR(nNum)),1,1)),2,3,5,7) &&提取高位數(shù)字并判斷是否為素數(shù)
    IF lIsSupperPrime=.F.
     RETURN .F.
    ENDIF
    FOR nCnt=0 TO LEN(ALLTRIM(STR(nNum)))-1
     nNum1=INT(nNum/10^nCnt) &&將原數(shù)去掉從個位開始的nCnt位
     cNum=SUBSTR(ALLTRIM(STR(nNum1)),2) &&提取除高位外的其余部分
     IF "0"$cNum OR "2"$cNum OR "4"$cNum OR "5"$cNum OR "6"$cNum OR "8"$cNum
     lIsSupperPrime=.F.
     EXIT
     ELSE
     lIsSupperPrime=.T.
     ENDIF
     IF !IsPrime(nNum1)
     lIsSupperPrime=.F.
     EXIT
     ENDIF
    ENDFOR
    RETURN lIsSupperPrime
    *** EOF(): IsSupperPrime By Tiger5392 (C)Copyright 2006-2006
    FUNCTION IsPrime
    PARAMETERS nNumber
    PRIVATE nNumber,lOk,nCnt
    IF nNumber<10 &&10以內(nèi)的數(shù)直接判斷是否為素數(shù)
     lOk=INLIST(nNumber,2,3,5,7)
    ELSE
     IF MOD(nNumber,2)=0 OR MOD(nNumber,3)=0 OR MOD(nNumber,5)=0 OR MOD(nNumber,7)=0
     lOk=.F.
     ELSE
     lOk=.T.
     FOR nCnt=2 TO SQRT(nNumber)
     IF MOD(nNumber,nCnt)=0
     lOk=.F.
     EXIT
     ENDIF
     ENDFOR
     ENDIF
    ENDIF
    RETURN lOk
    *** EOF(): IsPrime