2つのリストから要素を比較する

Question

私はハスケルで宿題をやっていますが、要素ごとに2つのリストを比較して同じ要素にいくつの要素が同じであるかを計算する必要があります。と第二のリストの最初の要素を持つリストの最初の要素、など。

は、ここで私が持っているものです。

compare :: [Int]->[Int]->Int 
compare [a] [b]= if head a == head b then 1 + compare (tail a tail b) else 0 + compare (tail a tail b) 

compare [] [b] = 0 

私は、彼らは両方の要素として8つのInt sのリストになることが事前にわかっています。

Answer 1

持っているすべての場所をカウントすると仮定したタプルのリストに map (uncurry compare) $ zip l1 l2を比較することができあなたのコードに問題があります：

• ns：compare [a] [b]を定義していますが、headとtailで使用しているので、aとbをリストにします。代わりにcompare a bを定義してください。

• パターンの順序：最初の試合が勝つので、compare [] b = 0が最初に来るはずです。

• compare (tail a tail b)は、compareに2つの引数を指定し、tailには3つの引数を指定しないでください。 compare (tail a) (tail b)。

すべてが語った：

compare :: [Int] -> [Int] -> Int 
compare [] _ = 0 
compare a b = 
    if head a == head b then 
     1 + compare (tail a) (tail b) 
    else 
     compare (tail a) (tail b) 

そして、それはおそらく、宿題には適していませんが、あなたが特定の位置であるかどうかを示すブール値のリストを取得することにより、これを書くことができることを知って楽しいかもしれませんが等しい、唯一の真の値にそれらをフィルタリング、そして得られた長さを取得する：

compare a = length . filter id . zipWith (==) a 

-- this works too 
compare a = sum . fromEnum . zipWith (==) a 

Answer 2

次の2つのリストをzipして、あなたは二つのリストl1とl2

を持っており、彼らは同じ要素 length $ filter (== EQ) $ map (uncurry compare) $ zip l1 l2