如何在R中將大數轉換爲羅馬

Question

我想將大數（低於10.000）轉換爲羅馬。我知道as.roman的功能。但是這隻能達到3899.

是否有可能在此函數的源代碼中更改並強制它轉換較大的數字 - 或者是否可以編寫新函數？

我正在運行R 3.3.0。

最好， 桑德。

Answer 1

後來我在Perl中寫了一個整數到羅馬轉換函數。我剛剛在R中重寫了這個答案。請注意，我使用新穎的strrep()函數，我相信它只是在3.3.0中添加的。

integerToRoman <- function(x) { 

    x <- as.integer(x); 

    neg <- x<0L; 
    x <- abs(x); 

    cnt <- integer(length(x)); 
    res <- rep('',length(x)); 
    if (any(m <- x==0L)) { res[m] <- 'nulla'; }; 
    if (any(m <- x>=1000L)) { cnt[m] <- x[m]%/%1000L; x[m] <- x[m]%%1000L; res[m] <- strrep('M',cnt[m]); }; 
    if (any(m <- x>=900L)) { res[m] <- paste0(res[m],'CM'); x[m] <- x[m]-900L; }; 
    if (any(m <- x>=500L)) { res[m] <- paste0(res[m],'D'); x[m] <- x[m]-500L; }; 
    if (any(m <- x>=400L)) { res[m] <- paste0(res[m],'CD'); x[m] <- x[m]-400L; }; 
    if (any(m <- x>=100L)) { cnt[m] <- x[m]%/%100L; x[m] <- x[m]%%100L; res[m] <- paste0(res[m],strrep('C',cnt[m])); }; 
    if (any(m <- x>=90L)) { res[m] <- paste0(res[m],'XC'); x[m] <- x[m]-90L; }; 
    if (any(m <- x>=50L)) { res[m] <- paste0(res[m],'L'); x[m] <- x[m]-50L; }; 
    if (any(m <- x>=40L)) { res[m] <- paste0(res[m],'XL'); x[m] <- x[m]-40L; }; 
    if (any(m <- x>=10L)) { cnt[m] <- x[m]%/%10L; x[m] <- x[m]%%10L; res[m] <- paste0(res[m],strrep('X',cnt[m])); }; 
    if (any(m <- x>=9L)) { res[m] <- paste0(res[m],'IX'); x[m] <- x[m]-9L; }; 
    if (any(m <- x>=5L)) { res[m] <- paste0(res[m],'V'); x[m] <- x[m]-5L; }; 
    if (any(m <- x>=4L)) { res[m] <- paste0(res[m],'IV'); x[m] <- x[m]-4L; }; 
    if (any(m <- x>=1L)) res[m] <- paste0(res[m],strrep('I',x[m])); 

    if (any(neg)) res[neg] <- paste0('-',res[neg]); 

    res; 

}; ## end integerToRoman() 

演示：

set.seed(319072L); data.frame(int=x <- sample(seq(0L,5e3L),20L),roman=integerToRoman(x)); 
##  int   roman 
## 1 614   DCXIV 
## 2 4825 MMMMDCCCXXV 
## 3  6    VI 
## 4 4721  MMMMDCCXXI 
## 5  9    IX 
## 6 3333 MMMCCCXXXIII 
## 7 2114   MMCXIV 
## 8 4861 MMMMDCCCLXI 
## 9 1042   MXLII 
## 10 3609  MMMDCIX 
## 11 417   CDXVII 
## 12 241   CCXLI 
## 13 3   III 
## 14 4952  MMMMCMLII 
## 15 1370  MCCCLXX 
## 16 1789  MDCCLXXXIX 
## 17 3730  MMMDCCXXX 
## 18 2275  MMCCLXXV 
## 19 1139  MCXXXIX 
## 20 4898 MMMMDCCCXCVIII