Primzahlen

Hallo Forum,
da heute erwartungsgemäß nicht viel los ist in den Foren, eine kleine Frage.
Kennt jemand einen schnelleren Algorithmus um festzustellen, ob eine Zahl prim ist oder nicht. Zur Zeit verwende ich das:

Private Function IsPrim(ByVal lng_pruefzahl As Long) As Boolean
    Dim lng_counter As Long
    If lng_pruefzahl Mod 2 = 0 Then Exit Function
    If lng_pruefzahl Mod 3 = 0 Then Exit Function
    If lng_pruefzahl Mod 5 = 0 Then Exit Function
    If lng_pruefzahl Mod 7 = 0 Then Exit Function
    For lng_counter = 10 To CLng(lng_pruefzahl ^ 0.5) Step 10
        If lng_pruefzahl Mod (lng_counter + 1) = 0 Then Exit Function
        If lng_pruefzahl Mod (lng_counter + 3) = 0 Then Exit Function
        If lng_pruefzahl Mod (lng_counter + 7) = 0 Then Exit Function
        If lng_pruefzahl Mod (lng_counter + 9) = 0 Then Exit Function
    Next
    IsPrim = True
End Function

Gruß
Nepumuk

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Function IsPrim(lngZahl As Long) As Boolean Dim l As Long Dim lw As Long If lngZahl Mod 2 = 0 Then IsPrim = (lngZahl = 2) Exit Function End If lw = CLng(lngZahl ^ 0.5) For l = 3 To lw Step 2 If lngZahl Mod l = 0 Then Exit For Next IsPrim = (l > lw - 1) End Function

Private Function Prim(ByVal lng_pruefzahl As Long) As Boolean Dim lng_counter As Long If lng_pruefzahl Mod 2 = 0 Then Exit Function If lng_pruefzahl Mod 3 = 0 Then Exit Function If lng_pruefzahl Mod 5 = 0 Then Exit Function If lng_pruefzahl Mod 7 = 0 Then Exit Function For lng_counter = 10 To CLng(lng_pruefzahl ^ 0.5) Step 10 If lng_pruefzahl Mod (lng_counter + 1) = 0 Then Exit Function If lng_pruefzahl Mod (lng_counter + 3) = 0 Then Exit Function If lng_pruefzahl Mod (lng_counter + 7) = 0 Then Exit Function If lng_pruefzahl Mod (lng_counter + 9) = 0 Then Exit Function Next Prim = True End Function

Function IsPrim(lngZahl As Long) As Boolean Dim l As Long Dim lw As Long If lngZahl Mod 2 = 0 Then IsPrim = (lngZahl = 2) Exit Function End If IsPrim = True lw = CLng(lngZahl ^ 0.5) For l = 3 To lw Step 2 If lngZahl Mod l = 0 Then IsPrim = False Exit For End If Next End Function

Function IsPrim(lngZahl As Long) As Boolean Dim l As Long Dim lMax As Long Select Case lngZahl Case 2, 3, 5, 7, 11, 13, 17, 19, 23, 29, 33, 37, 41, 43, 47, _ 53, 59, 61, 67, 71, 73, 79, 83, 89, 97 IsPrim = True Exit Function Case Else If lngZahl Mod 2 = 0 Then Exit Function If lngZahl Mod 3 = 0 Then Exit Function If lngZahl Mod 5 = 0 Then Exit Function If lngZahl Mod 7 = 0 Then Exit Function If lngZahl Mod 11 = 0 Then Exit Function If lngZahl Mod 13 = 0 Then Exit Function If lngZahl Mod 17 = 0 Then Exit Function If lngZahl Mod 19 = 0 Then Exit Function If lngZahl Mod 23 = 0 Then Exit Function If lngZahl Mod 29 = 0 Then Exit Function If lngZahl Mod 33 = 0 Then Exit Function If lngZahl Mod 37 = 0 Then Exit Function If lngZahl Mod 41 = 0 Then Exit Function If lngZahl Mod 43 = 0 Then Exit Function If lngZahl Mod 47 = 0 Then Exit Function If lngZahl Mod 53 = 0 Then Exit Function If lngZahl Mod 59 = 0 Then Exit Function If lngZahl Mod 61 = 0 Then Exit Function If lngZahl Mod 67 = 0 Then Exit Function If lngZahl Mod 71 = 0 Then Exit Function If lngZahl Mod 73 = 0 Then Exit Function If lngZahl Mod 79 = 0 Then Exit Function If lngZahl Mod 83 = 0 Then Exit Function If lngZahl Mod 89 = 0 Then Exit Function If lngZahl Mod 97 = 0 Then Exit Function End Select lMax = CLng(lngZahl ^ 0.5) For l = 101 To lMax Step 10 If lngZahl Mod l = 0 Then Exit Function Next For l = 103 To lMax Step 10 If lngZahl Mod l = 0 Then Exit Function Next For l = 107 To lMax Step 10 If lngZahl Mod l = 0 Then Exit Function Next For l = 109 To lMax Step 10 If lngZahl Mod l = 0 Then Exit Function Next IsPrim = (l > lMax - 1) End Function

Hallo Sigi,
Benchmark: 1.000.000 x Prüfung ob 65521 Prim -> 6,73 Sekunden
der kurze Code benötigt dafür 9,14 Sekunden
Hier noch einmal beide Codes: IsPrim wurde korrigiert - habe mich verschrieben, Prim ist natürlich 31 und nicht 33 ;-)


Function IsPrim(lngZahl As Long) As Boolean
Dim l       As Long
Dim lMax    As Long
Select Case lngZahl
Case 2, 3, 5, 7, 11, 13, 17, 19, 23, 29, 31, 37, 41, 43, 47, _
53, 59, 61, 67, 71, 73, 79, 83, 89, 97
IsPrim = True
Exit Function
Case Else
If lngZahl Mod 2 = 0 Then Exit Function
If lngZahl Mod 3 = 0 Then Exit Function
If lngZahl Mod 5 = 0 Then Exit Function
If lngZahl Mod 7 = 0 Then Exit Function
If lngZahl Mod 11 = 0 Then Exit Function
If lngZahl Mod 13 = 0 Then Exit Function
If lngZahl Mod 17 = 0 Then Exit Function
If lngZahl Mod 19 = 0 Then Exit Function
If lngZahl Mod 23 = 0 Then Exit Function
If lngZahl Mod 29 = 0 Then Exit Function
If lngZahl Mod 31 = 0 Then Exit Function
If lngZahl Mod 37 = 0 Then Exit Function
If lngZahl Mod 41 = 0 Then Exit Function
If lngZahl Mod 43 = 0 Then Exit Function
If lngZahl Mod 47 = 0 Then Exit Function
If lngZahl Mod 53 = 0 Then Exit Function
If lngZahl Mod 59 = 0 Then Exit Function
If lngZahl Mod 61 = 0 Then Exit Function
If lngZahl Mod 67 = 0 Then Exit Function
If lngZahl Mod 71 = 0 Then Exit Function
If lngZahl Mod 73 = 0 Then Exit Function
If lngZahl Mod 79 = 0 Then Exit Function
If lngZahl Mod 83 = 0 Then Exit Function
If lngZahl Mod 89 = 0 Then Exit Function
If lngZahl Mod 97 = 0 Then Exit Function
End Select
lMax = CLng(lngZahl ^ 0.5)
For l = 101 To lMax Step 10
If lngZahl Mod l = 0 Then Exit Function
Next
For l = 103 To lMax Step 10
If lngZahl Mod l = 0 Then Exit Function
Next
For l = 107 To lMax Step 10
If lngZahl Mod l = 0 Then Exit Function
Next
For l = 109 To lMax Step 10
If lngZahl Mod l = 0 Then Exit Function
Next
IsPrim = (l > lMax - 1)
End Function


Function IsPrim1(lngZahl As Long) As Boolean
Dim l   As Long
Dim lw  As Long
If lngZahl Mod 2 = 0 Then
IsPrim1 = (lngZahl = 2)
Exit Function
End If
lw = CLng(lngZahl ^ 0.5)
For l = 3 To lw Step 2
If lngZahl Mod l = 0 Then Exit Function
Next
IsPrim1 = True
End Function

Servus aus dem Salzkammergut
Franz

Beliebteste Forumthreads (12 Monate)

22 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

22
Beiträge zum Forumthread

Beiträge zu diesem Forumthread