Data commit

Task/Number-names/R/number-names.r

@@ -0,0 +1,51 @@
+# Number Names
+
+ones <- c("", "one", "two", "three", "four", "five", "six", "seven", "eight", "nine",
+          "ten", "eleven", "twelve", "thirteen", "fourteen", "fifteen", "sixteen", "seventeen", "eighteen", "nineteen")
+tens <- c("ten", "twenty", "thirty", "forty", "fifty", "sixty", "seventy", "eighty", "ninety")
+mags <- c("", "thousand", "million", "billion", "trillion", "quadrillion", "quintillion")
+
+
+return_hund <- function(input_number){
+  if (input_number == 0) return("")
+  num_text <- as.character()
+  input_hund <- trunc(input_number / 100)
+  input_ten <- trunc((input_number - input_hund * 100) / 10)
+  input_one <- input_number %% 10
+  if (input_number > 99) num_text <- paste0(ones[trunc(input_number / 100) + 1], "-hundred")
+  if (input_ten < 2){
+    if (input_ten == 0 & input_one == 0) return(num_text)
+    if (input_hund > 0) return(paste0(num_text, " ", ones[input_ten * 10 + input_one + 1]))
+    return(paste0(ones[input_ten * 10 + input_one + 1]))
+  }
+  ifelse(input_hund > 0,
+         num_text <- paste0(num_text, " ", tens[input_ten]),
+         num_text <- paste0(tens[input_ten])
+  )
+  if (input_one != 0) num_text <- paste0(num_text, "-", ones[input_one + 1])
+  return(num_text)
+}
+
+
+make_number <- function(number){
+  if (number == 0) return("zero")
+  a <- abs(number)
+  num_text <- as.character()
+  g <- trunc(log(a, 10)) + 1
+  for (i in c(seq(g, 1))){
+    b <- floor(a / 1000 ^ (i - 1))
+    x <- return_hund(b)
+    if (x != "") num_text <- paste0(num_text, return_hund(b), " ", mags[i], " ")
+    a <- a - b * 1000 ^ (i - 1)
+  }
+  return(ifelse(sign(number) > 0, num_text, paste("negative", num_text)))
+}
+
+my_num <- data.frame(nums = c(
+  0, 1, -11, 13, 99, 100, -101, 113, -120, 450, -999, 1000, 1001, 1017, 3000, 3001,
+  9999, 10000, 10001, 10100, 10101, 19000, 20001, 25467, 99999, 100000, 1056012,
+  -200000, 200001, -200012, 2012567, -5685436, 5000201, -11627389, 100067652, 456000342)
+)
+
+my_num$text <- as.character(lapply(my_num$nums, make_number))
+print(my_num, right=F)