遍历数组找相同项 By 僵尸

a := ["重复","不","相同","不"]
b := ["重复","重","相同","相"]
C := ["重复","复","相同","不"]
d := ["重复","复","相同","不"]

msgbox % arr(a,b,c,d)

arr(arrIn*){
  For i,n in arrIn {
    For k,v in n {
      str .= v "`n"
      Sort str, U
    }
    strAll .= str
    str := ""
  }

  Sort strAll
  Loop {
    RegExMatch(strAll,"(.+?\n)\1{" arrIn.Length()-1 "}", str_In)
    str_Out .= "" str_In
    strAll := RegExReplace(strAll,str_In,,Num)
    if (!str_In)
      Break
    str_In := ""
  }
  Sort str_Out, U
  Return str_Out
}