haskell - 检查列表是否是另一个列表的子列表

Question

我想编写一个函数来检查一个列表是否是另一个列表的子列表。我写了这个，但它不起作用，但我想我需要这样的东西。感谢您的帮助。

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

Answer 1

您可以像这样使用函数 intersect:

相交[列表1] [列表2] == [列表1]

*Test> intersect [] [] == []
True
*Test> intersect [1] [] == [1]
False
*Test> intersect [2,4,6,4] [9,5,4,2,6,3,3] == [2,4,6,4]
True
*Test> intersect [1,2,3] [3,2,5,4] == [1,2,3]
False

您必须为此导入 Data.List。