文字列が回文かどうかをチェックする関数

59 文字解

f=function(s)s==paste(rev(strsplit(s,"")[[1]]),collapse="")

> f("abcあいう")
[1] FALSE

> f("abccba")
[1] TRUE