R 프로그래밍 piglatin

sentence <- "hello"

sentence2 <- "world!"

pigLatin <- function(x){

  size <- nchar(x)

  newSentence <- paste(substr(x,size-1,size),substr(x,1,size-2),sep="")

  return(newSentence)

}

print(pigLatin(sentence))

print(pigLatin(sentence2))