match_count "" "" = 1
match_count "" _ = 1
match_count _ "" = 0
match_count (pattern:patterns) (str:strs) | pattern == str = match_count patterns strs + match_count (pattern:patterns) strs
match_count patterns (str:strs) = match_count patterns strs