将整数转换为base36

Question

strtoi(x,base=36)将把base36 36编码的字符串转换为整数：

strtoi("zzzz",base=36)
[1] 1679615

是否有一个函数反转此操作，即给定一个正整数产生base36等效值？本质上，我在寻找一个itostr()函数，这样

itostr(1679615,base=36)
[1] "zzzz"

(我不需要36以外的任何基数，但是base参数最好有。)

Answer 1

我相信如果您安装包BBmisc，它具有itostr功能。

library(BBmisc)
itostr(1679615,base=36)
[1] "zzzz"

Answer 2

我不知道有什么实现，但是算法没有那么难。这里有一个在32位有符号整数上工作的。

intToBase36 <- function(int) {
  stopifnot(is.integer(int) || int < 0)

  base36 <- c(as.character(0:9),LETTERS)
  result <- character(6)
  i <- 1L
  while (int > 0) {
    result[i] <- base36[int %% 36L + 1L]
    i <- i + 1L
    int <- int %/% 36L
  }
  return(paste(result, sep="", collapse=""))
}

如果需要支持较大的整数，可以使用bit64和Rmpfr包。

Answer 3

一个快速的Rcpp黑客这个也会让你得到它：

library(inline)

cxxfunction(signature(x="numeric"), body='
unsigned int val = as<unsigned int>(x);
static char const base36[] = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ";
std::string result;
result.reserve(14);
do {
  result = base36[val % 36] + result;
} while (val /= 36);
return wrap(result);
', plugin="Rcpp") -> base36enc

base36enc(36)
## [1] "10"

base36enc(72)
## [1] "20"

base36enc(73)
## [1] "21"

不过，它确实需要更多的代码用于生产。

另一个答案中引用的BBmisc包也是C-背，所以它可能是一个很好的、具有表现力的选择。