比較兩個列表，並返回在兩個列表的第一個元素

Question

element1 :: [a] -> [a] -> [a] 
    element1 [] [] = [] 
    element1 [] _ = [] 
    element1 _ [] = [] 

    element1 (h1:t1) (h2:t2) = if 

我被卡住，不知道如何從這裏出發，我要檢查兩個列表，並返回這是兩個列表中的第一個元素

Answer 1

目前還不清楚，如果他們應該在相同的位置或什麼。假設是：

f = ((head . concat) .) . zipWith (\x y -> [x | x == y]) 

或者擴展：

f xs ys = head $ concat $ zipWith (\x y -> [x | x == y]) xs ys 

如果索引必須在第一個列表中是最小的：

f xs ys = head [x | x <- xs, x `elem` ys] 

Answer 2

您可以定義一個輔助謂詞如果一個元素，檢查在列表中（這已經在Data.List中實現）。然後在你的主函數中通過第一個列表進行遞歸。這是做到這一點的一種方法。

element1 :: (Eq a) => [a] -> [a] -> [a] 
element1 [] _ = [] 
element1 _ [] = [] 
element1 (h:t) xs = if (isInList h xs) 
        then [h] 
        else element1 t xs 

isInList :: (Eq a) => a -> [a] -> Bool 
isInList _ [] = False 
isInList e (x:xs) = if e == x 
        then True 
        else isInList e xs 

一些輸出：

element1 [1,2,3] [8,5,9,3] = [3] 
element1 [1,2,3] [1,5,9,3] = [1] 
element1 [1,2,3] [3,2,1] = [1]