1 USING: help.markup help.syntax math sequences ;
4 { next-prime prime? } related-words
7 { $values { "n" integer } { "p" "a prime number" } }
8 { $description "Return the next prime number greater than " { $snippet "n" } "." } ;
11 { $values { "n" "an integer" } { "?" "a boolean" } }
12 { $description "Test if an integer is a prime number." } ;
14 { primes-upto primes-between } related-words
17 { $values { "n" "an integer" } { "seq" "a sequence" } }
18 { $description "Return a sequence containing all the prime numbers smaller or equal to " { $snippet "n" } "." } ;
21 { $values { "low" "an integer" } { "high" "an integer" } { "seq" "a sequence" } }
22 { $description "Return a sequence containing all the prime numbers between " { $snippet "low" } " and " { $snippet "high" } "." } ;
24 HELP: find-relative-prime
29 { $description "Returns a number that is relatively prime to " { $snippet "n" } "." } ;
31 HELP: find-relative-prime*
33 { "n" integer } { "guess" integer }
36 { $description "Returns a number that is relatively prime to " { $snippet "n" } ", starting by trying " { $snippet "guess" } "." } ;
43 { $description "Returns a prime number exactly " { $snippet "numbits" } " bits in length, with the topmost bit set to one." } ;
47 { "numbits" integer } { "n" integer }
50 { $description "Generates a sequence of " { $snippet "n" } " unique prime numbers with exactly " { $snippet "numbits" } " bits." } ;
52 ARTICLE: "math.primes" "Prime numbers"
53 "The " { $vocab-link "math.primes" } " vocabulary implements words related to prime numbers. Serveral useful vocabularies exist for testing primality. The Sieve of Eratosthenes in " { $vocab-link "math.primes.erato" } " is useful for testing primality below five million. For larger integers, " { $vocab-link "math.primes.miller-rabin" } " is a fast probabilstic primality test. The " { $vocab-link "math.primes.lucas-lehmer" } " vocabulary implements an algorithm for finding huge Mersenne prime numbers." $nl
54 "Testing if a number is prime:"
55 { $subsections prime? }
56 "Generating prime numbers:"
63 "Generating relative prime numbers:"
68 "Make a sequence of random prime numbers:"
69 { $subsections unique-primes } ;