Lucas-Lehmer test: Difference between revisions

(F#)
Line 250:
 
 
=={{header|F Sharp|F#}}==
Simple arbitrary-precision version:
<lang fsharp>let rec s mp n =
Line 258:
if p = 2 || s ((1I <<< p) - 1I) (p - 1) = 0I then
yield p ]</lang>
 
=={{header|Fortran}}==
{{works with|Fortran|90 and later}}
Anonymous user