如何在 R 中将大数字转换为罗马数字

Question

我想将大数字（低于 10.000）转换为罗马数字。我知道 as.roman 函数。但这只会达到 3899。

是否可以更改此函数的源代码并强制其转换更大的数字 - 或者是否可以编写一个新函数？

我是运行 R 3.3.0.

最好，桑德。

Answer 1

前段时间我用 Perl 写了一个整数到罗马的转换函数。我只是在 R 中为这个答案重写了它。请注意，我使用了我认为仅在 3.3.0 中添加的新功能 strrep()。

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

如何在 R 中将大数字转换为罗马数字

How to transform large numbers to roman in R

largenumber

r

roman-numerals