binary-search: improve example for search.
(But use prettyprint, the help.lint.checks patch wasn't ready)char-rename
parent
7f38fd5ae9
commit
4982bcce27
|
@ -12,15 +12,15 @@ $nl
|
|||
{ $examples
|
||||
"Searching for an integer in a sorted array:"
|
||||
{ $example
|
||||
"USING: binary-search math.order prettyprint ;"
|
||||
"{ -13 -4 1 9 16 17 28 } [ 5 >=< ] search . ."
|
||||
"1\n2"
|
||||
"USING: binary-search kernel math.order prettyprint ;"
|
||||
"{ -130 -40 10 90 160 170 280 } [ 50 >=< ] search [ . ] bi@"
|
||||
"2\n10"
|
||||
}
|
||||
"Frequently, the quotation passed to " { $link search } " is constructed by " { $link curry } " or " { $link with } " in order to make the search key a parameter:"
|
||||
{ $example
|
||||
"USING: binary-search kernel math.order prettyprint ;"
|
||||
"5 { -13 -4 1 9 16 17 28 } [ <=> ] with search . ."
|
||||
"1\n2"
|
||||
"50 { -130 -40 10 90 160 170 280 } [ <=> ] with search [ . ] bi@"
|
||||
"2\n10"
|
||||
}
|
||||
} ;
|
||||
|
||||
|
|
Loading…
Reference in New Issue