Create binary_search.r

searches/binary_search.r

@@ -0,0 +1,28 @@
+binary_search <- function(arr, target) { #function for finding position of value 
+  low <- 1
+  high <- length(arr) 
+
+  while (low <= high) {
+    mid <- low + (high - low) %/% 2 #finding mid of array
+
+    if (arr[mid] == target) { #comapring the mis value with the value to search
+      return(mid)  # Target found, return its index
+    } else if (arr[mid] < target) {
+      low <- mid + 1  # Search in the right half
+    } else {
+      high <- mid - 1  # Search in the left half
+    }
+  }
+  return(-1)  # Target not found in the array
+}
+
+arr <- c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10) #input array (hard code)
+target <- 7 #input value to be searched (hard code)
+
+result <- binary_search(arr, target) #binary_seach function calling
+
+if (result == -1) {
+  cat("Element", target, "not found in the array.\n")
+} else {
+  cat("Element", target, "found at position", result, ".\n")
+}