小编Jav*_*tro的帖子

我试图从数据类型中派生 Eq，并将函数作为字段，但无法按预期工作。

我也尝试编写 te 实例但仍然不起作用

data Conf = Conf {\n    rule :: ([Char] -> Char),\n    start :: Int,\n    numLines :: Double,\n    window :: Int,\n    move :: Int,\n    actualLine :: Int,\n    lastLine :: String\n} deriving (Eq)\n

这是一个以图形方式打印钨金字塔的项目，例如，规则如下：

rule30 :: [Char] -> Char\nrule30 "***" = ' '\nrule30 "** " = ' '\nrule30 "* *" = ' '\nrule30 "*  " = '*'\nrule30 " **" = '*'\nrule30 " * " = '*'\nrule30 "  *" = '*'\nrule30 "   " = ' …