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

我想检查一个数字是否是另一个数字的排列。理想函数如下所示

isperm(14,41) 

TRUE

---

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

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

---

isperm你所说的数字排列是什么意思？@RonakShah这两个数字包含完全相同的数字，顺序不同。这个函数听起来像苹果生物技术产品……哈哈@geryan up vote！我知道有人会拿它开玩笑：）谢谢。我非常理解这个函数，尽管我对[[1]]对x和ystrsplit的作用有点困惑，因为它返回一个长度为1的列表。[[1]]将其转换为字符向量。试着去发现：）啊哈！我现在明白了。因为我从strsplit获得了一个数组，所以您只需选择它的第一个也是唯一的成员。有道理