Plan 9 from Bell Labs’s /usr/web/sources/contrib/fgb/root/sys/src/cmd/4th/examples/demo/searches.4th

Copyright © 2021 Plan 9 Foundation.
Distributed under the MIT License.
Download the Plan 9 distribution.


\ BSEARCH demo

include lib/bsearch.4th

here
create elements 0 , 3 , 12 , 23 , 45 , 66 , 88 ,
here swap - 1 cells / value #elements

:noname  ( a b -- res )
    2dup < If 2drop -1 Exit Then > ; IS B-COMPARE

:noname ( index array -- key )
    swap cells + @c ; IS GET-KEY

: TEST  ( key -- )
    elements #elements bsearch cr
    IF ." FOUND = " ELSE ." NOT FOUND, insert = " THEN . cr ;

45 test
46 test
13 test

Bell Labs OSI certified Powered by Plan 9

(Return to Plan 9 Home Page)

Copyright © 2021 Plan 9 Foundation. All Rights Reserved.
Comments to [email protected].