mirror of
https://github.com/ProgramSnail/Lama.git
synced 2025-12-24 23:58:47 +00:00
40 lines
941 B
OCaml
40 lines
941 B
OCaml
(* A deep embedding of simple expressions in OCaml. *)
|
|
|
|
(* Opening GT yet again. *)
|
|
open GT
|
|
|
|
(* Opening the substrate module for convenience. *)
|
|
open Expr
|
|
|
|
(* Shortcuts for leaf constructors *)
|
|
let ( ! ) x = Var x
|
|
let ( !? ) n = Const n
|
|
|
|
(* Implementation of operators *)
|
|
let binop op x y = Binop (op, x, y)
|
|
|
|
let ( + ) = binop "+"
|
|
let ( - ) = binop "-"
|
|
let ( * ) = binop "*"
|
|
let ( / ) = binop "/"
|
|
let ( % ) = binop "%"
|
|
let ( < ) = binop "<"
|
|
let ( <= ) = binop "<="
|
|
let ( > ) = binop ">"
|
|
let ( >= ) = binop ">="
|
|
let ( == ) = binop "=="
|
|
let ( != ) = binop "!="
|
|
let ( && ) = binop "&&"
|
|
let ( || ) = binop "!!"
|
|
|
|
(* Some predefined names for variables *)
|
|
let x = !"x"
|
|
let y = !"y"
|
|
let z = !"z"
|
|
let t = !"t"
|
|
|
|
(* Voila; comment this out before submitting the solution
|
|
let _ =
|
|
List.iter (fun e -> Printf.printf "eval s (%s) = %d\n" (show(expr) e) (eval s e)) [x+y*z- !?3; t-z+y && x]
|
|
*)
|
|
|