haskell - 文字列表現で 2 つの項目の加算を記述するにはどうすればよいですか?

Question

たとえば、2 つの式 e1 と e2 を追加したい

toString (Plus e1 e)= ??

私はそれが次のようなものになると推測しています

toString (Plus e1 e)= ((toString e1) ++ "+" ++ (toString e2))

Answer 1

Plus がどのように定義されるかについて、いくつかの仮定を立てました。このコードでは、ghci プロンプトで expr と入力するだけで、ghci は式 100-30+100+30 を出力します。

module Main where

data Expr =
    Plus Expr Expr
  | Minus Expr Expr
  | Value Int

-- This works but is not as Haskell-y as using Show
toString (Plus e1 e2) = toString e1 ++ "+" ++ toString e2
toString (Minus e1 e2)  = toString e1 ++ "-" ++ toString e2
toString (Value n) = show n

instance Show Expr where
  show (Plus e1 e2) = show e1 ++ "+" ++ show e2
  show (Minus e1 e2)  = show e1 ++ "-" ++ show e2
  show (Value n) = show n

expr = (Plus
         (Minus (Value 100) (Value 30))
         (Plus (Value 100) (Value 30)))