R中的幻数

如何在R中找到一个幻数？ 示例：1729

求给定数字的位数之和。1+7+2+9=19

数字和输出的反向。19的反面是91， 19 X 91=1729

1729是一个神奇的数字

---

一种方法可以如下所示：

num = 1729
sum_of_digits <- sum(as.numeric(unlist(strsplit(as.character(num), split = ""))))
rev_of_sum_of_digits <- as.numeric(paste(rev(strsplit(as.character(sum_of_digits),"")[[1]]),collapse=""))

ifelse(rev_of_sum_of_digits * sum_of_digits == num, "Magic Number!", "Not a Magic Number!")

---

希望这有帮助

也许更适合你？不清楚你想要什么。请提供更多信息。您尝试过什么吗？这看起来像是euler项目的一个问题。@Aramis7d我得到了任何数字，现在我如何才能确定这个数字是否是R上的幻数。为了方便起见，我给出了一个1729数字的例子。你现在明白我的问题了吗？@dvantwisk正在用一个很长的过程进行尝试，将数字转换为字符串，然后使用strsplit提取每个数字。这是一个漫长的过程。寻找一个最佳的解决方案它奏效了。非常感谢你的朋友！！！Y再问一个问题：[[1]]，collapse=[[1]]给出第一个元素；collapse是一个可选字符串，用于分隔结果以了解更多详细信息。请参阅粘贴。顺便说一句，如果它解决了你的问题，那么你应该接受它作为“正确答案”，因为它将帮助其他人，以防他们在未来面临类似的问题：是的，这是打字错误@Biswagourab请考虑接受这个答案，如果它通过点击答案左边的复选标记来帮助