Consider Following Type Data Expr1 Val1 Int Add1 Expr1 Expr1 Sub1 Expr1 Expr1 Write Haskel Q37071452

1. Consider the following type:data Expr1 = Val1 Int | Add1 Expr1 Expr1 | Sub1 Expr1 Expr1Write a HASKELL function value1 that evaluates anexpression.
   value1 :: Expr1 -> Int

Solution