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

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

1 个答案: