Untitled
public text v1 · immutablemodule Overload where
--14.16
data Expr = Lit Int | Add Expr Expr | Sub Expr Expr
eval :: Expr -> Int
eval (Lit n) = n
eval (Add e1 e2) = (eval e1) + (eval e2)
eval (Sub e1 e2) = (eval e1) - (eval e2)
module Overload where
--14.16
data Expr = Lit Int | Add Expr Expr | Sub Expr Expr
eval :: Expr -> Int
eval (Lit n) = n
eval (Add e1 e2) = (eval e1) + (eval e2)
eval (Sub e1 e2) = (eval e1) - (eval e2)