如何检查数字是否是另一个数字的排列？

Question

我想检查一个数字是否是另一个数字的排列。理想的功能看起来像

isperm(14,41) 

TRUE

Answer 1

转换为字符串，拆分为sep char，比较数组

isperm <- function(x,y){
    all(sort(strsplit(as.character(x),"")[[1]]) == sort(strsplit(as.character(y),"")[[1]]) )
}