wildcard.hs

mask [] [] = True
mask [] ['*'] = True
mask (x:xs) ['*'] = True
mask (x:xs) ms@('*':m:mss) = if m == x then mask xs mss else mask xs ms
mask (x:xs) (m:ms) = if m == x then mask xs ms else False
mask _ _ = False


main = do
  print $ mask "abcdef" "abcdef"
  print $ mask "abcdef" "ab*ef"
  print $ mask "abcdef" "abcdef*"
  print $ mask "abcdef" "*abcdef"
  print $ mask "abcdef" "*"

  print $ mask "abcdef" "ab*d*f"
  print $ mask "abcdef" "*abcdef"
  print $ mask "abcdef" "*abcdef"
  print $ mask "abcdef" "*abcdef"

  print "======================="

  print $ mask "abcdef" "abcf"
  print $ mask "abcdef" "abcd"
  print $ mask "abcdef" "cdef"
  print $ mask "abcdef" "cdef"
  print $ mask "abcdef" "*ccdef"
  print $ mask "abcdef" "ab*bcdef"