Simpler tests in simple_test.ml + Added diverging tests in simple.1

[fireball-separation.git] / ocaml / simple_test.ml

diff --git a/ocaml/simple_test.ml b/ocaml/simple_test.ml
index d5cb66b6b8abc11173b9f4129a352cf6c1b68a4a..8bdefdcb426939e42a192c7e7e0c079c0a9c6863 100644 (file)
--- a/ocaml/simple_test.ml
+++ b/ocaml/simple_test.ml
@@ -38,8 +38,8 @@ let rec repeat f n =
 let main =
   Random.self_init ();
   let num = 100 in
-  let complex = 200 in
-  let no_bound_vars = 20 in
+  let complex = 100 in
+  let no_bound_vars = 10 in
   let vars = Array.to_list
    (Array.init no_bound_vars (fun x -> "x" ^ string_of_int x)) in