This commit is contained in:
Dmitry Boulytchev 2018-02-14 15:39:40 +03:00
parent 4f040532b2
commit 0b6f64646b
10 changed files with 727 additions and 60 deletions

6
regression/common.ml Normal file
View file

@ -0,0 +1,6 @@
open GT
open Expr
open Embedding
let state ps = List.fold_right (fun (x, v) s -> update x v s) ps empty
let eval s e = Printf.printf "%d\n" (eval s e)