haskell - 编写一个 Eq 实例

Question

我有这个功能：

func:: [[[Char]]] -> Int -> [(Int,Int,[Char],[Char],[Char],[Char],[Char],[Char],[Char],[Char])] -> [[[Char]]] 
func mymap scope klkl =

该函数在 GHCi 上运行良好，但是当我在 Hugs 上运行此代码时，出现此错误：

Hugs> :l asdf
ERROR "asdf.hs":238 - Instance of Eq (Int,Int,[Char],[Char],[Char],[Char],[Char],[Char],[Char],[Char]) required for definition of func

你能告诉我如何为 Hugs 解决这个问题吗？我已经有一个show10 元组的函数。

Answer 1

你的典型Eq例子就像他们来的一样脑残。我将举一个三元组的例子，你可以用你最喜欢的编辑器将它扩展成一个 10 元组。

instance (Eq a, Eq b, Eq c) => Eq (a, b, c) where
    (a, b, c) == (a', b', c') = a == a' && b == b' && c == c'