Boyer-Moore matcher

matcherBoyerMoore.hs

matchUp :: ByteString
        -> ByteString
        -> Bool
matchUp pat
  | null pat = null
matchUp pat = searcher
  where
    searcher = case nonOverlappingIndicies pat of -- это библиотечная функция
                 [] -> False
                 _  -> True

-- Вычисление таблички произойдет при первом вызове
let check = matchUp "pat"
 in any [check "foobarbaz", check "foopatbarbaz" ]