Binary search: Difference between revisions
Content added Content deleted
m (→{{header|C}}: In main program, the case "is not found" extracted.) |
m (→{{header|Quackery}}: tweak to code) |
||
| Line 5,512: | Line 5,512: | ||
value.bs put |
value.bs put |
||
nest.bs put |
nest.bs put |
||
swap |
1 - swap |
||
[ 2dup < if done |
[ 2dup < if done |
||
2dup + 1 >> |
2dup + 1 >> |
||
| Line 5,530: | Line 5,530: | ||
[ dup echo |
[ dup echo |
||
over size |
over size 0 swap 2swap |
||
bsearchwith < iff |
bsearchwith < iff |
||
[ say " was identified as item " ] |
[ say " was identified as item " ] |
||