23:I[213999,["/_next/static/chunks/16a29cd6304f2411.js","/_next/static/chunks/1f26200cd6d05dff.js","/_next/static/chunks/c3f9d80d717636c8.js","/_next/static/chunks/bc1d040bf8e65c58.js","/_next/static/chunks/debb321617d7ca1e.js","/_next/static/chunks/f64101a76fad54b1.js","/_next/static/chunks/94fbb7fa806ad56b.js","/_next/static/chunks/db9978aba23a417e.js","/_next/static/chunks/14f8985e1634915f.js","/_next/static/chunks/aec63f7bf4bac799.js","/_next/static/chunks/2ed14a01cc7b5d05.js","/_next/static/chunks/e95f3e95128ec76b.js","/_next/static/chunks/7bba671d0b05dc6c.js","/_next/static/chunks/882a0401193a3b5d.js","/_next/static/chunks/abd3194e107ec3ca.js"],"AcademyWorkspaceWrapper"] 26:I[422650,["/_next/static/chunks/0306128cacc23787.js"],"IconMark"] 24:T47f,small_n <- 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') oom <- c('billion', 'million', 'thousand', '') say_group <- \(n) { h <- n %/% 100 if (h == 0) sh <- c() else sh <- c(small_n[h], 'hundred') r <- n %% 100 if (r < 20) sh <- c(sh, small_n[r]) else sh <- c(sh, tens[r %/% 10]) last <- r %% 10 if (last > 0 && r >= 20) sh <- c(sh, '-', small_n[last]) sh } group <- \(number) { groups <- rep(0, 4) for (i in 4:1) { groups[i] <- number %% 1000 number <- number %/% 1000 } groups } say <- \(number) { if (number < 0 || number >= 1e12) stop('input out of range') if (number == 0) return('zero') groups <- group(number) sh <- c() for (i in 1:3) { if (groups[i] > 0) { sh <- c(sh, say_group(groups[i]), oom[i]) } } sh <- c(sh, say_group(groups[4])) gsub(' - ', '-', paste(sh, collapse = ' ')) } 25:T75d,