0

我正在做作业并且有错误

我必须做一个关于现在描述的数据类型的函数

data RGBdata= RGB Int Int Int
data PBMfile= PBM Int Int [[RGBdata]]

而他的表演功能

instance Show RGBdata where
 show (RGB r g b) = (show r)++" "++(show g)++" "++(show b)

instance Show PBMfile where
 show (PBM width height l) = "P3\n"++(show width)++" "++(show height)++"\n255\n"++(foldr (++) "" (map myshow l))

myshow [] = "\n"
myshow (h:t) = (show h)++" "++(myshow t)

以及他的加载和应用功能

cargarPBM name = readFile name >>= return . rLines . lines
rLines (_:x:_:xs)= (\[a,b]->(PBM (read a) (read b) (rLines' (read a) (concat $map words xs)))) $ words x 
rLines' _ []= []
rLines' a x= (rLine (take (a*3) x): rLines' a (drop (a*3) x))
rLine []= []
rLine (r:g:b:xs)= ((RGB (read r) (read g) (read b)):rLine xs)

aplicar funcion origen destino= cargarPBM origen >>= writeFile destino . show . funcion

例如，当我尝试执行一项功能时

negative :: PBMfile -> [Int] 
negative PBM x y z = [1,2,3]

拥抱错误

ERROR file:.\haha.hs:32 - Constructor "PBM" must have exactly 3 arguments in pattern

但是 PBM xyz 不是 3 个参数吗？我究竟做错了什么？

4

2 回答 2

2

您的函数定义negative PBM x y z试图对 4 个参数进行模式匹配，其中第一个是PBM数据构造函数。要实际模式匹配数据构造函数及其参数，您应该对它们进行分组，即negative (PBM x y z) = .... 您问题中的show定义是正确执行此操作的示例。

如需进一步阅读，请尝试http://en.wikibooks.org/wiki/Haskell/Pattern_matching#The_connection_with_constructors。

于 2012-05-01T21:27:56.667 回答
1

你需要括号，

negative :: PBMfile -> [Int] 
negative (PBM x y z) = [1,2,3]

否则它被解析为negative.

于 2012-05-01T21:20:09.333 回答