R找出由两个3位数字的乘积组成的最大回文

Question

回文数在两个方向上都相同。由两个两位数的乘积构成的最大回文数为9009 = 91×99。

编写一个程序，该程序查找由两个3位数字的乘积组成的最大回文集。

Answer 1

尝试下面的代码：

ispalindromic <- function(x) {
  return(all(utf8ToInt(x) == rev(utf8ToInt(x))))
}

v <- 100:999
l <- sapply(as.character(outer(v,v)), ispalindromic)
r <- as.numeric(names(tail(which(l),1)))