23 lines
777 B
Factor
Executable File
23 lines
777 B
Factor
Executable File
USING: help.syntax help.markup kernel prettyprint sequences
|
|
quotations math ;
|
|
IN: combinators.lib
|
|
|
|
HELP: generate
|
|
{ $values { "generator" quotation } { "predicate" quotation } { "obj" object } }
|
|
{ $description "Loop until the generator quotation generates an object that satisfies predicate quotation." }
|
|
{ $unchecked-example
|
|
"! Generate a random 20-bit prime number congruent to 3 (mod 4)"
|
|
"USING: combinators.lib math math.miller-rabin prettyprint ;"
|
|
"[ 20 random-prime ] [ 4 mod 3 = ] generate ."
|
|
"526367"
|
|
} ;
|
|
|
|
HELP: %chance
|
|
{ $values { "quot" quotation } { "n" integer } }
|
|
{ $description "Calls the quotation " { $snippet "n" } " percent of the time." }
|
|
{ $unchecked-example
|
|
"USING: io ;"
|
|
"[ \"hello, world! maybe.\" print ] 50 %chance"
|
|
""
|
|
} ;
|