如何检查一个数字是否是另一个数字的排列？
How do I check if a number is a permutation of another number?
我想检查一个数字是否是另一个数字的排列。一个理想的函数看起来像
isperm(14,41)
TRUE
转换为字符串，拆分为 sep 字符，比较数组
isperm <- function(x,y){
all(sort(strsplit(as.character(x),"")[[1]]) == sort(strsplit(as.character(y),"")[[1]]) )
}
我想检查一个数字是否是另一个数字的排列。一个理想的函数看起来像
isperm(14,41)
TRUE
转换为字符串，拆分为 sep 字符，比较数组
isperm <- function(x,y){
all(sort(strsplit(as.character(x),"")[[1]]) == sort(strsplit(as.character(y),"")[[1]]) )
}