new files

Task/Binary-search/R/binary-search-1.r

@@ -0,0 +1,13 @@
+BinSearch <- function(A, value, low, high) {
+  if ( high < low ) {
+    return(NULL)
+  } else {
+    mid <- floor((low + high) / 2)
+    if ( A[mid] > value )
+      BinSearch(A, value, low, mid-1)
+    else if ( A[mid] < value )
+      BinSearch(A, value, mid+1, high)
+    else
+      mid
+  }
+}

Task/Binary-search/R/binary-search-2.r

@@ -0,0 +1,15 @@
+IterBinSearch <- function(A, value) {
+  low = 1
+  high = length(A)
+  i = 0
+  while ( low <= high ) {
+    mid <- floor((low + high)/2)
+    if ( A[mid] > value )
+      high <- mid - 1
+    else if ( A[mid] < value )
+      low <- mid + 1
+    else
+      return(mid)
+  }
+  NULL
+}

Task/Binary-search/R/binary-search-3.r

@@ -0,0 +1,4 @@
+a <- 1:100
+IterBinSearch(a, 50)
+BinSearch(a, 50, 1, length(a)) # output 50
+IterBinSearch(a, 101) # outputs NULL