怎样写一个function用来检查单词是否是回文

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

怎样写一个名字叫palindrom的 function能检验一个单词是不是回文。这个单词要作为这个function的argument而不是vector。
结果要是这样：
>palindrom("hello")
>"hello" is no palindrom!
>palindrom("Anna")
>"Anna" is a palindrom!
>palindrom ("anna")
>"anna" is a palindrom!
求大师帮帮忙！

                                                                                                                                            

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：function Fun CTI TIO UNC function 单词

You can use rev function as an example below,

revfun <- function(a) {
       b<- a
       a=tolower(a)
       if ( a==paste(rev(substring(a,1:nchar(a),1:nchar(a))),collapse="")) {
         rv<- paste(b, "is a palindrome!")
       } else {
         rv<- paste(b, "is not a palindrome!")
       }

       return( rv )
}

x<-"Hello"
revfun(x)
revfun("anna")
revfun("Anna")