26 lines
937 B
Factor
26 lines
937 B
Factor
|
! Copyright (C) 2009 Doug Coleman.
|
||
|
|
! See http://factorcode.org/license.txt for BSD license.
|
||
|
|
USING: help.markup help.syntax kernel ;
|
||
|
|
IN: math.primes.lucas-lehmer
|
||
|
|
|
||
|
|
HELP: lucas-lehmer
|
||
|
|
{ $values
|
||
|
|
{ "p" "a prime number" }
|
||
|
|
{ "?" "a boolean" }
|
||
|
|
}
|
||
|
|
{ $description "Runs the Lucas-Lehmer test on the prime " { $snippet "p" } " and returns " { $link t } " if " { $snippet "(2 ^ p) - 1" } " is prime." }
|
||
|
|
{ $examples
|
||
|
|
{ $example "! Test that (2 ^ 61) - 1 is prime:"
|
||
|
|
"USING: math.primes.lucas-lehmer prettyprint ;"
|
||
|
|
"61 lucas-lehmer ."
|
||
|
|
"t"
|
||
|
|
}
|
||
|
|
} ;
|
||
|
|
|
||
|
|
ARTICLE: "math.primes.lucas-lehmer" "Lucas-Lehmer Mersenne Primality test"
|
||
|
|
"The " { $vocab-link "math.primes.lucas-lehmer" } " vocabulary tests numbers of the form " { $snippet "(2 ^ p) - 1" } " for primality, where " { $snippet "p" } " is prime." $nl
|
||
|
|
"Run the Lucas-Lehmer test:"
|
||
|
|
{ $subsection lucas-lehmer } ;
|
||
|
|
|
||
|
|
ABOUT: "math.primes.lucas-lehmer"
|