haskellで構文解析入力エラーを生成します

Question

以下のコードシーケンスは、入力時に解析エラーを生成しています|。 入力は、入力がツリーノードが、私はHaskellでは初心者です左サブツリー、値、右のサブツリー

data Tree t = Leaf t 
     | Node (Tree t) t (Tree t) 

foldTree :: (t1 -> t -> t1 -> t1) -> (t -> t1) -> Tree t -> t1 
foldTree treeFn leafFn tree= | foldTree (Leaf v) = leafFn(v) 
          | foldTree (Node left v right) = treeFn(left v right) 


Input : foldTree (\t1 t t2->t1 + 5*t + t2) (\x->x+9) (Leaf 5) 
Expected Output : 14 

Input : foldTree (\t1 t t2->t1 + 3*t + t2) (\x->x+5) (Tree (Leaf 3) 2 (Leaf 4)) 
Expected Output : 23 

でTreeFuncを呼び出した場合は、リーフノードはその値 でleafFuncを呼び出した場合。

Answer 1

data Tree t = Leaf t 
       | Node (Tree t) t (Tree t) 

foldTree :: (Tree t -> t -> Tree t -> t1) -> (t -> t1) -> Tree t -> t1 
foldTree treeFn leafFn (Leaf v) = leafFn v 
foldTree treeFn leafFn (Node left v right) = treeFn left v right 

Answer 2

私はこれを推測しているあなたは

data Tree t = Leaf t | Node (Tree t) t (Tree t) deriving Show 

foldTree :: (t1 -> t -> t1 -> t1) -> (t -> t1) -> Tree t -> t1 
foldTree treeFn leafFn tree 
       | foldTree (Leaf v) = leafFn v 
       | foldTree (Node left v right) = treeFn left v right