3 prefixMatch :: Eq a => [a] -> [a] -> Bool
4 prefixMatch [] _str = True
5 prefixMatch _pat [] = False
6 prefixMatch (p:ps) (s:ss) | p == s = prefixMatch ps ss
9 suffixMatch :: String -> String -> Bool
10 suffixMatch pat str = prefixMatch (reverse pat) (reverse str)