2 lines
70 B
R
2 lines
70 B
R
|
revstring <- function(s) paste(rev(strsplit(s,"")[[1]]),collapse="")
|