Create shell_sort

sorting_algorithms/bucket_sort.r

@@ -0,0 +1,43 @@
+# Bucket Sort Function
+# Sorts an input vector using the Bucket Sort algorithm.
+# Parameters:
+# - arr: Input vector to be sorted.
+# Returns:
+# - Sorted vector.
+bucket_sort <- function(arr) {
+  if (length(arr) == 0) {
+    return(arr)
+  }
+
+  # Find the maximum and minimum values in the input vector
+  max_val <- max(arr)
+  min_val <- min(arr)
+
+  # Create an array of buckets
+  num_buckets <- max_val - min_val + 1
+  buckets <- vector("list", length = num_buckets)
+
+  # Initialize the buckets
+  for (i in 1:num_buckets) {
+    buckets[[i]] <- numeric(0)
+  }
+
+  # Place elements into buckets
+  for (val in arr) {
+    bucket_index <- val - min_val + 1
+    buckets[[bucket_index]] <- c(buckets[[bucket_index]], val)
+  }
+
+  # Sort each bucket (using any sorting algorithm, e.g., Bubble Sort)
+  sorted_buckets <- lapply(buckets, bubble.sort)
+
+  # Concatenate the sorted buckets to obtain the final sorted array
+  sorted_arr <- unlist(sorted_buckets)
+
+  return(sorted_arr)
+}
+
+# Example usage:
+elements_vec <- c(3, 1, 4, 1, 5, 9, 2, 6, 5, 3, 5)
+bucket_sorted_vec <- bucket_sort(elements_vec)
+print(bucket_sorted_vec)

sorting_algorithms/shell_sort.r

@@ -0,0 +1,37 @@
+# Function to perform Shell Sort
+shellSort <- function(arr) {
+  n <- length(arr)
+
+  # Start with a large gap and reduce it
+  gap <- n %/% 2  # Initial gap
+
+  while (gap > 0) {
+    for (i in (gap + 1):n) {
+      # Store the current element to be compared
+      temp <- arr[i]
+
+      # Compare the current element with elements at positions 'i - gap', 'i - 2 * gap', ...
+      j <- i
+      while (j > gap && arr[j - gap] > temp) {
+        arr[j] <- arr[j - gap]
+        j <- j - gap
+      }
+
+      # Place the current element in its correct position
+      arr[j] <- temp
+    }
+
+    # Reduce the gap for the next iteration
+    gap <- gap %/% 2
+  }
+
+  return(arr)
+}
+
+# Example usage:
+arr <- c(12, 34, 54, 2, 3)
+cat("Original Array:", arr, "\n")
+
+# Call the Shell Sort function to sort the array
+sortedArr <- shellSort(arr)
+cat("Sorted Array:", sortedArr, "\n")