如何查找以给定前缀开头的字符串列表的字符串？

Question

我想写一个可以返回字符串列表的助手 function

helper ['Excuse','Me', 'Exit', 'And'] 'Ex' 

这应该返回

['Excuse','Exit']

我在Data.List中搜索并找到isInfixOf function 可以比较两个字符串，但是我如何递归调用以找到正确的字符串列表

helper :: [String] -> String -> [String]
helper [] _ = []  
helper (x:xs) std 
    | isInfixOf x std == True : helper

Answer 1

你几乎完全在那里。

要在名为["Excuse", "Me", "Exit", "And"]的列表上调用helper ，哦，假设是myList ，你会写：

helper myList "Ex"

现在，当您将该列表与x:xs进行模式匹配时， xs是列表的尾部，它只是另一个列表。 要对此递归调用helper ，您只需编写helper xs std 。

您无需显式比较isInfixOf与True的返回值。 您还需要处理isInfixOf x std不正确的情况。

helper :: [String] -> String -> [String]
helper [] _ = []  
helper (x:xs) std 
    | isInfixOf x std = x : helper xs std
    | otherwise = helper xs std

Answer 2

使用递归 function 确实没有理由这样做。 您希望保留满足某个谓词的列表元素（ "Ex"是元素的中缀）。 filter function 正是这样做的。

import Data.List (isInfixOf)

helper :: Eq a => [[a]] -> [a] -> [[a]]
helper = flip (filter . isInfixOf)

例如：

helper ["Excuse", "Me", "Exit", "And"] "Ex"
-- ["Excuse","Exit"]