R语言字符串逆序

R语言反转字符串

虽然有rev函数可以逆序,但是以向量的形式逆序,而不是字符串的形式
由于没有直接的对字符串逆序函数,不引入其他包的情况下,需要我们手工实现
下面这种是找到的一种最为简单的办法,先拆分字符串成向量再逆序连接

revString <- function(text){
  paste(rev(unlist(strsplit(text,NULL))),collapse="")
}

以判断回文数为例

revString <- function(text){
    paste(rev(unlist(strsplit(text,NULL))),collapse="")
}
judge <- function(value){
    as.double(revString(as.character(value)))==value
}
judge(100)
judge(101)
judge(1)
judge(12321)

---

参考链接 How to Reverse a string in R