tilarids

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