我想知道是否有办法将十进制数转换成三进制数，因为有一个函数intToBits可以转换成二进制数.
我需要转换一个字符串，比如
> S0 <- c("Hello Stac")
以3为基数.我想先用
> S01 <- utf8ToInt(S0)
> S01
## [1] 72 101 108 108 111 32 83 116 97 99
然后将结果转换为基数3.我想得到这样的东西:
> S1
## [1] 2200 10202 11000 11010 11022 1012 10002 11022 10121 10200
为了练习，我想你可以试着编写自己的转换函数，如下所示
f <- function(x, base = 3) {
q <- c()
while (x) {
q <- c(x %% base, q)
x <- x %/% base
}
# as.numeric(paste0(q, collapse = ""))
sum(q * 10^(rev(seq_along(q) - 1)))
}
还是100
f <- function(x, base = 3) {
ifelse(x < base, x, f(x %/% base) * 10 + x %% base)
}
那你就可以跑了
> sapply(utf8ToInt(S0),f)
[1] 2200 10202 11000 11000 11010 1012 10002 11022 10121 10200