Primzahlen

Hellhound66 · Beitrag von **Hellhound66** » 13.11.2006 23:12

Was hälst du davon:

Procedure.q IsPrimzahl(Zahl.q)
    For Z=2 To (Zahl/2)
        If((Zahl%Z)=0)
            ProcedureReturn #False
        EndIf
    Next
    ProcedureReturn #True
EndProcedure

STARGÅTE · Beitrag von **STARGÅTE** » 13.11.2006 23:26

Noch besser :

bis zur Wurzel von Zahl reich auch

Code: Alles auswählen

Procedure.q IsPrimzahl(Zahl.q) 
    For Z=2 To int(sqr(Zahl)) 
        If((Zahl%Z)=0) 
            ProcedureReturn #False 
        EndIf 
    Next 
    ProcedureReturn #True 
EndProcedure