2010-11-02 12:23:54 -04:00
|
|
|
USING: byte-arrays help.markup help.syntax kernel math ;
|
2008-12-26 14:58:46 -05:00
|
|
|
IN: math.primes.erato
|
|
|
|
|
|
|
|
HELP: sieve
|
2010-11-02 12:23:54 -04:00
|
|
|
{ $values { "n" integer } { "arr" byte-array } }
|
|
|
|
{ $description "Apply Eratostene sieve up to " { $snippet "n" }
|
|
|
|
". " { $snippet "n" } " must be greater than 1"
|
|
|
|
". Primality can then be tested using " { $link marked-prime? } "." } ;
|
2008-12-26 14:58:46 -05:00
|
|
|
|
2009-06-24 07:04:20 -04:00
|
|
|
HELP: marked-prime?
|
2010-11-02 12:23:54 -04:00
|
|
|
{ $values { "n" integer } { "arr" byte-array } { "?" boolean } }
|
|
|
|
{ $description "Checks whether " { $snippet "n" } " has been marked as a prime number. "
|
|
|
|
{ $snippet "arr" } " must be " { $instance byte-array } " returned by " { $link sieve } ". "
|
|
|
|
{ $snippet "n" } " must be between 2 and the limit given to " { $link sieve } "." } ;
|