15 lines
1.0 KiB
Plaintext
15 lines
1.0 KiB
Plaintext
IN: sequences
|
|
USING: help kernel words ;
|
|
|
|
HELP: binsearch
|
|
{ $values { "elt" "an object" } { "seq" "a sorted sequence" } { "quot" "a comparator quotation" } { "i" "the index of the search result" } }
|
|
{ $description "Given a sequence that is sorted with respect to the " { $snippet "quot" } " comparator, searches for an element equal to " { $snippet "elt" } ", or failing that, the greatest element smaller than " { $snippet "elt" } ". Comparison is performed with " { $snippet "quot" } "."
|
|
$nl
|
|
"Outputs f if the sequence is empty. If the sequence has at least one element, this word always outputs a valid index." } ;
|
|
|
|
HELP: binsearch*
|
|
{ $values { "elt" "an object" } { "seq" "a sorted sequence" } { "quot" "a comparator quotation" } { "result" "the search result" } }
|
|
{ $description "Variant of " { $link binsearch } " which outputs the found element rather than its index in the sequence."
|
|
$nl
|
|
"Outputs " { $link f } " if the sequence is empty. If the sequence has at least one element, this word always outputs a sequence element." } ;
|