Haskell中的代數數據類型

Question

我正在嘗試為數學表達式編寫一個簡單的數據類型。 我現在擁有的代碼是：

data Expr
  = Num Double
  | Add Expr Expr
  | Mul Expr Expr
  | Sin Expr
  | Cos Expr
  | X
  deriving Eq

這可以按預期工作，但是我想簡化它，對於二進制運算符（Add和Mul）只有一行，對於一元運算符（Sin和Cos）只有一行。 有什么建議么？

Answer 1

您可以使用，例如

data BinOp = Add | Mul
data UnaryOp = Sin | Cos

data Expr
  = Num Double
  | Binary BinOp Expr Expr
  | Unary UnaryOp Expr

YMMV上這是否比較簡單。