एक पूर्णांक base36 को

Question

strtoi(x,base=36) एक पूर्णांक के लिए एक base36 एनकोडेड स्ट्रिंग में परिवर्तित कर देंगे कन्वर्ट:

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 हैक of this तो उसी तरह इसे मिल जाएगा:

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" 

यह निश्चित रूप से उत्पादन में इस्तेमाल के लिए थोड़ा और कोड है, हालांकि की जरूरत है।

BBmisc किसी अन्य उत्तर में संदर्भित पैकेज भी C-backed है, इसलिए यह शायद एक अच्छा, प्रदर्शन विकल्प है।