r - 检查两个字符串是否是字谜

Question

检查两个字符串是否是字谜的最直接方法是什么？即它们共享相同的字母以及每个这些字母(以及可能的其他字符)的出现次数。

类似这样的:

s1 = "elbow"
s2 = "below"

is_anagram(s1, s2)
# [1] TRUE

Answer 1

一种方法是:

s1 = "elbow"
s2 = "below"

is_anagram <- function(s1, s2){
  s1_sorted <- sort(strsplit(s1, "")[[1]])
  s2_sorted <- sort(strsplit(s2, "")[[1]])
  identical(s1_sorted, s2_sorted)
}

#> is_anagram(s1, s2)
#> [1] TRUE