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

Question

我想编写一个可以返回字符串列表的辅助函数

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

，这应该返回

['Excuse','Exit']

我搜索并在data.list中找到isinfixof函数可以比较两个字符串，但是我如何递归调用以找到正确的字符串列表

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

Answer 1

你几乎完全在那里。

在列表上调用helper [“借口”，“我”，“退出”，“”和“] nath ，您要写：

helper myList "Ex"

现在，当您将该列表与x：xs，xs匹配时，这只是另一个列表。要调用助手对此递归，您只需编写helper XS std即可。

您无需明确将iSinfixof的返回与true进行比较。您还需要处理isinfixof x std is true的情况。

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

Answer 2

实际上，没有理由使用递归功能来做到这一点。您想保留满足特定谓词的列表的元素（“ ex”是元素的插图）。 filt> filter功能做到这一点。

import Data.List (isInfixOf)

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

例如：

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