Lucas lehmer

[albeganasa]

Spero di non essere OT...ma vorrei implementare un programmino in Vb.net Basato sull'algoritmo di lucal lehmer...solo che non saprei nemmeno da dove iniziare!! conosco le definizioni e gli enunciati, solo che non so applicarli..qualcuno mi sa aiutare? grazie..

[Il Capitano]

A occhio e croce hai sbagliato sezione. Dovresti postare in programmazione :)

[PGI-Bis]

Dire che il mio VisualBasic è arrugginito sarebbe un complimento. Comunque, Wikipedia alla mano, pare che questo test di Lucas-Lehmer si possa fare dicendo:

s vale 4
m vale 2 elevato alla p meno 1
per p - 2 volte
s vale s * s - 2 modulo m
se s vale zero allora m è primo altrimenti no

Un'ipotetica funzione VisualBasic (molto ipotetica) che faccia questo test per un numero M = 2 ^ p potrebbe essere:

Function LucasLehmer(p)
s = 4
m = (2 ^ p) - 1
do
s = ((s * s) - 2) Mod m
p = p - 1
Loop While p > 2
LucasLehmer = False
If s = 0 Then
LucasLehmer = True
End If
End Function

[albeganasa]

Dire che il mio VisualBasic è arrugginito sarebbe un complimento. Comunque, Wikipedia alla mano, pare che questo test di Lucas-Lehmer si possa fare dicendo:

s vale 4
m vale 2 elevato alla p meno 1
per p - 2 volte
s vale s * s - 2 modulo m
se s vale zero allora m è primo altrimenti no
Un'ipotetica funzione VisualBasic (molto ipotetica) che faccia questo test per un numero M = 2 ^ p potrebbe essere:

Function LucasLehmer(p)
s = 4
m = (2 ^ p) - 1
do
s = ((s * s) - 2) Mod m
p = p - 1
Loop While p > 2
LucasLehmer = False
If s = 0 Then
LucasLehmer = True
End If
End Function

Interessante..Dovrebbe quindi essere:

Public Function LucasLehmer (byval p as integer)
Dim s as integer=4
Dim m as integer=pow(2,p)-1

do
s = ((s * s) - 2) % m
p = p - 1
loop until p > 2

if s = 0 Then
LucasLehmer = True
else
LucasLehmer =False
End If

End Function