More

find <-function(A,x){
  ans = 0
  L=length(A)
  H=1
  if( L==1){ 
    if(A[H]==x){ans=1} 
    return(ans)}
  if (L >1){H=floor(L/2)}
  if (x==A[H]){
    ans =1
    return(ans)}
  if (x > A[H]){return(find(A[(H+1):L],x))}
  if (x < A[H]){return(find(A[1: (H-1)],x))}}

A = c(1,2,3,8,11,15,17,25)

find(A, 5)
## [1] 0
find(A, 25)
## [1] 1
find(A, 8)
## [1] 1



Version: 08 November 2026