alphabeticShift.R

# Given a string, your task is to replace each of its characters by the next one in the English alphabet; i.e. replace a with b, replace b with c, etc (z would be replaced by a).
#
# Example
#
# For inputString = "crazy", the output should be alphabeticShift(inputString) = "dsbaz".

# nput/Output
# 
# [execution time limit] 5 seconds (r)
# 
# [input] string inputString
# 
# A non-empty string consisting of lowercase English characters.
# 
# Guaranteed constraints:
#   1 ≤ inputString.length ≤ 1000.
# 
# [output] string
# 
# The resulting string after replacing each of its characters.
# inputString = "crazy"

#new function learnt: intToUtf8
alphabeticShift <- function(inputString) {
  inputString = strsplit(inputString,"")
  inputString <- as.vector(unlist(inputString))
  outputString <- lapply(inputString,function(x) {
    if (x == "z") {
      return(("a"))
    } else {
      return(intToUtf8(utf8ToInt(x) + 1))
    }
  })
  return(paste(outputString,collapse = ""))
}