Haskell: проверьте точную подстроку

Question

Я хочу написать функцию, которая будет проверять подстроку EXACT в данной строке. Все, что я использую сейчас, это isInfixOf, но мой друг просто указал, что он не проверяет ТОЧНОЕ слово.

Например, если я пишу

`"hi " `isInfixOf` "hi  you"` 

, то это вернет True. Но я не хочу этого. Все, что я хочу, это он должен вернуть True только в том случае, если он содержит "hi " i.e всего одно место. Как я могу это сделать?

Answer 1

Похоже, вы ищете несколько модифицированную версию isInfixOf:

import Data.Maybe 
import Data.List 

isInfixOf' :: String -> String -> Bool 
isInfixOf' xs ys = any p [stripPrefix xs zs | zs <- tails ys] 
    where 
    p Nothing   = False 
    p (Just (' ' : _)) = False 
    p _    = True 

Идея заключается в том, что мы сначала собрать все строки, которые следуют за соответствующей подстроки, а затем проверить, является ли или не начинать их с пространством ,

Например:

> "hi " `isInfixOf'` "hi you" 
False 

> "hi " `isInfixOf'` "hi you" 
True