strReverse.R

strSort <- function(x)
  sapply(lapply(strsplit(x, NULL), sort), paste, collapse="")

strSort("BDDDEFGHRDCCD")

## [1] "BCCDDDDDEFGHR"

strReverse <- function(x)
  sapply(lapply(strsplit(x, NULL), rev), paste, collapse="")
strReverse(c("AML", "Statistics"))

## [1] "LMA"        "scitsitatS"