reverseWords <- function(words) {
     return( sort( words, decreasing=TRUE))
}

##</code><code>##

reverseWords <- function(words) {
  return( paste( rev( unlist( strsplit( words, split=" "))), sep=" ", collapse=" "))
}