マジックナンバーR

-5

Rでマジックナンバーを見つけるには？例：1729マジックナンバーR

指定された数字の桁の合計を求めます。 1 + 7 + 2 + 9 = 19
逆桁和出力。 19のリバースが 19 X 91 = 1729
、91あるので、1729はマジックナンバーです。

出典

2017-08-29 Biswagourab Mitra

おそらくhttps://codegolf.stackexchange.com/に適していますか？ –

あなたが求めているものは明確ではありません。詳細をご記入ください。 – Aramis7d

まだ何か試しましたか？これはプロジェクトオイラーの問題のようです。 – dvantwisk

一つのアプローチは、以下のようなことができます：

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

は、この情報がお役に立てば幸い！

出典

2017-08-29 07:36:38 Prem

それは働いた。ありがとう、たくさんの友達！（y） –

[[1]]）、collapse = ""））<<この部分を説明してもらえますか？ –

'[[1]]'はあなたに最初の要素を与えます; 'collapse'は結果を区切るためのオプションの文字列です（詳細は'？paste'を参照してください）。それがあなたの問題を解決したらBTWはそれを "正解"として受け入れて、将来同様の問題に直面する場合に他人を助けるでしょう:) – Prem

答えて

関連する問題