sumUpNumbers.R

# CodeMaster has just returned from shopping. He scanned the check of the items
# he bought and gave the resulting string to Ratiorg to figure out the total
# number of purchased items. Since Ratiorg is a bot he is definitely going to
# automate it, so he needs a program that sums up all the numbers which appear
# in the given input.
#
# Help Ratiorg by writing a function that returns the sum of numbers that appear
# in the given inputString.
#
# Example
#
# For inputString = "2 apples, 12 oranges", the output should be
# sumUpNumbers(inputString) = 14.
#
# Input/Output
#
# [execution time limit] 5 seconds (r)
#
# [input] string inputString
#
# Guaranteed constraints: 0 ≤ inputString.length ≤ 105.
#
# [output] integer

inputString = "abcdefghijklmnopqrstuvwxyz1AbCdEfGhIjKlMnOpqrstuvwxyz23,74 -"
sumUpNumbers <- function(inputString) {
  onlyNumbers <- strsplit(inputString,"[^0-9]")[[1]]
  onlyNumbers <- lapply(onlyNumbers,as.numeric)
  return(sum(unlist(onlyNumbers),na.rm = T))
}