Binary search: Difference between revisions

Content deleted Content added

Inline

@@ Line 662: / Line 662: @@
 PRINT "The value";N;"was not found."
 END IF
-DEF SEARCH(REF T,N)
+DEF FILL(REF T)
-LET SEARCH=0
+LET T(1)=RND(3):PRINT T(1);
-LET BO=LBOUND(T):LET UP=UBOUND(T)
+FOR I=LBOUND(T)+1 TO UBOUND(T)
+LET T(I)=T(I-1)+RND(3)+1
-DO
-LET K=INT((BO+UP)/2)
+PRINT T(I);
+NEXT
-IF T(K)<N THEN LET BO=K+1
+END DEF
-IF T(K)>N THEN LET UP=K-1
-LOOP WHILE BO<=UP AND T(K)<>N
+DEF SEARCH(REF T,N)
-IF BO<=UP THEN LET SEARCH=K
+LET SEARCH=0:LET BO=LBOUND(T):LET UP=UBOUND(T)
-END DEF
+DO
+LET K=INT((BO+UP)/2)
-DEF FILL(REF T)
-LET T(1)=RND(3):PRINT T(1);
+IF T(K)<N THEN LET BO=K+1
+IF T(K)>N THEN LET UP=K-1
-FOR I=LBOUND(T)+1 TO UBOUND(T)
-LET T(I)=T(I-1)+RND(3)+1
+LOOP WHILE BO<=UP AND T(K)<>N
-PRINT T(I);
+IF BO<=UP THEN LET SEARCH=K
-NEXT
+END DEF</lang>
-END DEF</lang>
 =={{header|Batch File}}==