Jump to content

Binary search: Difference between revisions

Binary search (view source)

Revision as of 11:24, 22 October 2018

6 bytes removed ,  5 years ago
m
→‎{{header|IS-BASIC}}
No edit summary
Line 662:
190 PRINT "The value";N;"was not found."
200 END IF
210 DEF SEARCHFILL(REF T,N)
220 LET SEARCHT(1)=0RND(3):PRINT T(1);
230 LETFOR BOI=LBOUND(T):LET+1 TO UP=UBOUND(T)
240 LET T(I)=T(I-1)+RND(3)+1
240 DO
250 LETPRINT K=INTT((BO+UP)/2I);
260 NEXT
260 IF T(K)<N THEN LET BO=K+1▼
370270 END DEF</lang>▼
270 IF T(K)>N THEN LET UP=K-1
280 DEF LOOP WHILE BO<=UP ANDSEARCH(REF T(K,N)<>N
290 IFLET BO<SEARCH=UP THEN0:LET BO=LBOUND(T):LET SEARCHUP=KUBOUND(T)
300 END DEF DO
310 LET K=INT((BO+UP)/2)
310 DEF FILL(REF T)
320 LET IF T(1K)<N THEN LET BO=RND(3):PRINT T(K+1);
▲260330 IF T(K)<>N THEN LET BOUP=K+-1
330 FOR I=LBOUND(T)+1 TO UBOUND(T)
340 LOOP WHILE LETBO<=UP AND T(I)=T(I-1)+RND(3K)+1<>N
350 IF BO<=UP PRINTTHEN T(I);LET SEARCH=K
360 END NEXTDEF</lang>
▲370 END DEF</lang>
 
=={{header|Batch File}}==
Anonymous user
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/41748"
Cookies help us deliver our services. By using our services, you agree to our use of cookies.
More information