RosettaCodeData/Task/Reverse-a-string/R/reverse-a-string-2.r
Ingy döt Net b83f433714 tasks a-s
2013-04-10 23:57:08 -07:00

1 line
70 B
R

revstring <- function(s) paste(rev(strsplit(s,"")[[1]]),collapse="")