summaryrefslogtreecommitdiff
path: root/37/CH7/EX7.3/s3.sci
blob: 0ef82927c741c2b5c1c200224a7f56d5dbcacf80 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
function[]=binsearch(a,n,i)
  l=1;
  h=n;
  while(l<=h)
    mid=int((l+h)/2);
    if(a(mid)==i)
      printf("FOUND %d AT %d",i,mid);
      break;
    else
      if(a(mid)>i)
        h=mid-1;
      else
        l=mid+1;
      end
    end
  end
endfunction
//Calling Routine:
a=[2 22 23 33 121 222 233]//a should be  sorted
disp(a,"Given array");
binsearch(a,7,23)