Better random :)

titouanfreville · Jun 17, 2017 · 01180fd · 01180fd
1 parent 0342cdd
commit 01180fd
Show file tree

Hide file tree

Showing 2 changed files with 1 addition and 1 deletion.
diff --git a/build/linux/square-game b/build/linux/square-game
diff --git a/src/ia/base.ml b/src/ia/base.ml
@@ -7,7 +7,7 @@ let rec randomMoveRec l n il =
   | (_::q, n) -> randomMoveRec q (n-1) il
 
 let randomMove l =
-  let o = Random.int(List.length(l)) in
+  let o = Random.int((List.length(l)+30)*Random.int(10)+Random.int(50)) in
   randomMoveRec l o l
 
 let rec isClosableRec lbool c side =