как я могу считать префиксы в haskell?

Question

Я хочу создать функцию в haskell, которая возвращает количество раз, когда одно слово является префиксом списка слов. Например: для слова «идти» и списка слов «туз», «идти», «уходить», «гольф»] он должен вернуться 3. Что у меня есть до сих пор:

numberOfPrefixes _ [] = error ("Empty list of strings") 

numberOfPrefixes [] _ = error ("No word") 

numberOfPrefixes (x:xs) (y:ys) 

         | isPrefixOf (x:xs) y = 1 + numberOfPrefixes(x:xs) ys 

         | otherwise = 0 

Но это работает только в том случае, если первый элемент списка слов на самом деле является префиксом. Если первый элемент не является префиксом, все это разваливается. Любая помощь делает это правильно?

isPrefixOf :: (Eq a) => [a] -> [a] -> Bool 
isPrefixOf [] _ = True 
isPrefixOf _ [] = False 
isPrefixOf (x:xs) (y:ys) = x == y && isPrefixOf xs ys 

Answer 1

Вот как я пишу это

(.:) :: (b -> c) -> (a -> a1 -> b) -> a -> a1 -> c 
(.:) = (.) . (.) -- A common utility definition 
infixr 9 .: 

prefixCount :: Eq a => [a] -> [[a]] -> Integer 
prefixCount = length .: filter . isPrefixOf 

Или писать это pointfully

prefixCount l ls = length $ filter (isPrefixOf l) ls 

Если вы действительно хотите, чтобы написать это рекурсивно

prefixCount l [] = 0 
prefixCount x (l:ls) | <is prefix?> = 1 + prefixCount x ls 
         | otherwise = prefixCount x ls 

и просто заполнить в <is prefix?> с проверкой, является ли x префиксом l