r program to find maximum sum

codinasion-archive · Nov 30, 2023 · 8fada65 · 8fada65
1 parent 81e8dfc
commit 8fada65
Showing 1 changed file with 16 additions and 0 deletions.
diff --git a/...-the-maximum-sum-of-a-contiguous-subarray/find_the_maximum_sum_of_a_contiguous_subarray.r b/...-the-maximum-sum-of-a-contiguous-subarray/find_the_maximum_sum_of_a_contiguous_subarray.r
@@ -0,0 +1,16 @@
+findMaxSubarraySum <- function(arr) {
+  max_so_far <- arr[1]
+  max_ending_here <- arr[1]
+
+  for (i in 2:length(arr)) {
+    max_ending_here <- max(arr[i], max_ending_here + arr[i])
+    max_so_far <- max(max_so_far, max_ending_here)
+  }
+
+  return(max_so_far)
+}
+
+# Test the function with the provided input
+input_array <- c(-2, -3, 4, -1, -2, 1, 5, -3)
+max_sum <- findMaxSubarraySum(input_array)
+print(max_sum)