如何计算R中大数的校验位？

我必须在52/200005/0001（必须忽略斜线）的数字上添加一个2位数的支票（除97除外）。如何计算R中大数的校验位？

我的代码是下面的，但它失败，因为太多大数目：

AppendCheckDigits <- function (x) { 
    stopifnot(is.character(x) & length(x) == 1 & nchar(x) == 14) 
    cd <- as.integer(paste(substring(x, 1, 2), 
         substring(x, 4, 9), 
         substring(x, 11, 14), sep="")) %% 97 
    paste(x, "/", cd, sep="") 
}

测试它：

AppendCheckDigits("52/200005/0001")

我怎样才能解决呢？

来源

2014-10-03 user3341592

integer类的对象限制在2 * 10^9左右。

AppendCheckDigits <- function (x) { 
    stopifnot(is.character(x) & length(x) == 1 & nchar(x) == 14) 
    cd <- as.numeric(paste(substring(x, 1, 2), 
         substring(x, 4, 9), 
         substring(x, 11, 14), sep="")) %% 97 
    paste(x, "/", cd, sep="") 
}

然后：

> AppendCheckDigits("52/200005/0001") 
[1] "52/200005/0001/43"

请注意，您可以矢量化和简化功能这种方式，例如：你应该在你的函数中使用as.numeric，而不是as.integer

AppendCheckDigits <- function (x) { 
    stopifnot(is.character(x) & nchar(x) == rep(14,length(x))) 
    num <- as.numeric(gsub("/","", x)) %% 97 
    return(paste0(x, "/", num)) 
}

然后：

> AppendCheckDigits(c("52/200005/0001", "52/200005/0021")) 
[1] "52/200005/0001/43" "52/200005/0021/63"

来源

2014-10-03 15:06:09 juba

我还能说什么比“我没有期待这样一个完美的答案，清晰而广泛”？不知道！ ;-) – user3341592 2014-10-03 15:12:08

代码AppendCheckDigits < - function（x）{stoplexnot（is.character（x）＆nchar（x）== 14） num < - as.numeric（gsub（“/”，“”，x ））%% 97 paste0（x，“/”，num）似乎和你一样工作。这里没有“rep”，也没有“return”。他们真的很重要吗？ } – user3341592 2014-10-03 15:28:28

@ user3341592不，你说得对，使用回收规则时不需要在这里使用'rep'。你的代码很好，更干净。 – juba 2014-10-03 18:39:21

使用文件的路径和底涂所有非数字@朱巴的回答的变化：

AppendCheckDigits <- function (x) { 
    stopifnot(is.character(x) & nchar(x) == rep(14,length(x))) 
    num <- as.numeric(gsub("\\D","", x)) %% 97 
    file.path(x, num) 
} 

AppendCheckDigits(c("52/200005/0001", "52/200005/0021")) 
## [1] "52/200005/0001/43" "52/200005/0021/63"

更多不同的方式，这可能接洽如果将来的搜索者也有类似的问题，这可能会替代品。

来源

2014-10-03 15:35:24

是的，你很高兴在这里提供替代品。这样的回应被读取和阅读，并证明是有用的！ – user3341592 2014-10-03 15:38:22

如何计算R中大数的校验位？

回答

相关问题