Wie findet man eine magische Zahl in R? Beispiel: 1729Magische Zahl in R
Finden Sie die Summe der Ziffern der angegebenen Zahl. 1 + 7 + 2 + 9
Umkehr der Digitalsummenausgabe. Reverse von 19 ist 91, 19 X 91 = 1729
So 1729 ist eine magische Zahl.
Ein Ansatz wie unten sein könnte:
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!")
hoffe, das hilft!
Es hat funktioniert. Vielen Dank Kumpel !!! (y) –
Nur noch eine Frage: [[1]]), collapse = "")) << Kannst du bitte diesen Teil erklären ??? –
'[[1]]' gibt Ihnen das erste Element; 'collapse' ist eine optionale Zeichenkette, um die Ergebnisse zu trennen (nähere Einzelheiten finden Sie unter" Einfügen "). BTW, wenn es Ihr Problem gelöst hat, dann sollten Sie es als die "richtige Antwort" akzeptieren, da es anderen helfen wird, falls sie in Zukunft ähnliche Probleme haben :) – Prem
Vielleicht eine bessere Passform für https://codegolf.stackexchange.com/? –
Nicht klar, was Sie verlangen. Bitte geben Sie weitere Informationen an. – Aramis7d
Haben Sie schon etwas probiert? Das sieht nach einem Problem von Projekt euler aus. – dvantwisk