Magic number in R [closed]

by

One approach could be like below:

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

Hope this helps!

More Related Contents:

  1. Include levels of zero count in result of table()
  2. Reshape multiple value columns to wide format
  3. Rotating and spacing axis labels in ggplot2
  4. Read multiple CSV files into separate data frames
  5. Expand ranges defined by “from” and “to” columns
  6. Can you pass-by-reference in R?
  7. dplyr: “Error in n(): function should not be called directly”
  8. What exactly is copy-on-modify semantics in R, and where is the canonical source?
  9. How to swap values between two columns
  10. Define and apply custom bins on a dataframe
  11. Latitude Longitude Coordinates to State Code in R
  12. Function to clear the console in R and RStudio
  13. How to perform join over date ranges using data.table?
  14. Animated sorted bar chart with bars overtaking each other
  15. Find the n most common values in a vector [duplicate]
  16. What is the meaning of the dollar sign “$” in R function()?
  17. Set NA to 0 in R
  18. Case-insensitive search of a list in R
  19. Directly creating dummy variable set in a sparse matrix in R
  20. Error: package or namespace load failed for ‘tidyverse’ in loadNamespace
  21. Create frequency tables for multiple factor columns in R
  22. R function not returning values
  23. Reason behind speed of fread in data.table package in R
  24. Unicode with knitr and Rmarkdown
  25. How do I draw gridlines using abline() that are behind the data?
  26. How to get geom_vline to honor facet_wrap?
  27. r random forest error – type of predictors in new data do not match
  28. R ggplot ordering bars within groups
  29. ggplot for loop outputs all the same graph
  30. Data.frame Merge and Selection of values which are common in 2 Data.frames

Leave a Comment