Add an algorithm for determining the number of possible rearrangements of a string (#129)

Author: Ifeanyi55

text_manipulation/rearrangeWays.R

@@ -0,0 +1,33 @@
+rearrangeWays <- function(string, as_report = TRUE){
+  
+  if(as_report){ # conditional statement
+    
+    # split the string into letters
+    string_split <- c(unlist(strsplit(string,split = "")))
+    
+    # get the factorial of the letters vector
+    possible_ways <- factorial(length(string_split))
+    
+    # create the answer text
+    answer <- paste(string, "can be rearranged in", possible_ways, "possible ways")
+    
+    
+    return(noquote(answer))
+    
+    
+  }else{
+    
+    # split the string into letters
+    string_split <- c(unlist(strsplit(string,split = "")))
+    
+    # get the factorial of the letters vector
+    possible_ways <- factorial(length(string_split))
+    
+    return(possible_ways)
+    
+  }
+  
+  
+}
+
+rearrangeWays(string = "straight")