kjellski · March 21, 2015 14:44
diff --git a/Expr b/Expr
 type Expr = 
    | Zahl of int
    | Plus of Expr * Expr

 let rec eval sexp = 
    match sexp with 
    | Zahl a -> a
    | Plus (aexp, bexp) -> eval aexp + eval bexp

 eval (Plus(Zahl 3, Plus(Zahl 5, Zahl 2)))
	type Expr =
	\| Zahl of int
	\| Plus of Expr * Expr

	let rec eval sexp =
	match sexp with
	\| Zahl a -> a
	\| Plus (aexp, bexp) -> eval aexp + eval bexp

	eval (Plus(Zahl 3, Plus(Zahl 5, Zahl 2)))