比较两个相同长度的字符串char-by-char

Question

我想比较两个相同长度的字符串并计算匹配数。 例如：

foo <- "Hello"
bar <- "H3llO"

我需要的是3（匹配“H.ll。”）

虽然可以使用sum(unlist(strsplit(foo,""))==unlist(strsplit(bar,"")))执行此操作，但我正在为此目的寻找特定功能或更方便的方法，有没有？