R中的幻数

Question

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

• 查找给定数字的位数总和。1 + 7 + 2 + 9 = 19

• 数字和输出的反转。 19的反转是91， 19 X 91 = 1729

• 因此，1729是一个神奇的数字。

Answer 1

一种方法可能如下：

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!")

希望这有帮助！