Convertir un entier en base36

Question

strtoi(x,base=36) vous permet de convertir une chaîne codée base36 à un entier:

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

Y at-il une fonction qui intervertit cette opération, à savoir, étant donné un nombre entier positif donne l'équivalent base36? Essentiellement, je suis à la recherche d'une fonction itostr() telle que

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

(je ne nécessitent pas de base autre que 36, mais un argument base serait agréable d'avoir.)

Answer 1

Je crois que si vous installez le paquet BBmisc, il a la fonction itostr est disponible.

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

Answer 2

Je ne connaître des implémentations, mais l'algorithme n'est pas si difficile. Voici un qui fonctionne sur les entiers signés 32 bits.

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="")) 
} 

Vous pouvez utiliser les bit64 et Rmpfr packages si vous avez besoin pour soutenir des entiers plus grands.

Answer 3

Un hack CRPP rapide of this vous obtiendrez aussi bien:

library(inline) 

cxxfunction(signature(x="numeric"), body=' 
unsigned int val = as<unsigned int>(x); 
static char const base36[] = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"; 
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" 

Il faut sans aucun doute un peu plus de code pour l'utilisation de la production, bien que.

Le package BBmisc référencé dans une autre réponse est également C-backed, c'est donc probablement un bon choix performant.