Binary search: Difference between revisions

Content added Content deleted
Line 5,521: Line 5,521:
dip [ test.bs take do ]
dip [ test.bs take do ]
or not
or not
dup dip [ not + ] ] is bsearchwith ( n n [ n --> n b )
dup dip [ not + ] ] is bsearchwith ( n n [ x --> n b )


[ dup echo
[ dup echo