From 71b9c490cad6115af378d01b5aaa06ff858b6243 Mon Sep 17 00:00:00 2001
From: acondolu <andrea.condoluci@unibo.it>
Date: Thu, 31 May 2018 15:48:06 +0200
Subject: [PATCH] More bound vars in simple_test
---
ocaml/simple_test.ml | 4 +++-
1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/ocaml/simple_test.ml b/ocaml/simple_test.ml
index b766a52..d5cb66b 100644
--- a/ocaml/simple_test.ml
+++ b/ocaml/simple_test.ml
@@ -39,7 +39,9 @@ let main =
Random.self_init ();
let num = 100 in
let complex = 200 in
- let vars = ["x"; "y"; "z"; "v" ; "w"; "a"; "b"; "c"] in
+ let no_bound_vars = 20 in
+ let vars = Array.to_list
+ (Array.init no_bound_vars (fun x -> "x" ^ string_of_int x)) in
repeat (fun _ ->
let div, convs = gen complex vars in
--
2.39.2