From 0846d554b20df412aa16c7e250c400daee82dd59 Mon Sep 17 00:00:00 2001
From: Robby Zambito <contact@robbyzambito.me>
Date: Fri, 21 Jan 2022 18:05:19 -0500
Subject: Add a strategy which picks a valid move at random

---
 strategies/random-move.scm | 6 ++++++
 1 file changed, 6 insertions(+)
 create mode 100644 strategies/random-move.scm

(limited to 'strategies')

diff --git a/strategies/random-move.scm b/strategies/random-move.scm
new file mode 100644
index 0000000..8b7e192
--- /dev/null
+++ b/strategies/random-move.scm
@@ -0,0 +1,6 @@
+(use-modules (srfi srfi-1)
+             (srfi srfi-27))
+(random-source-randomize! default-random-source)
+
+(list-ref (valid-moves) (random-integer (length (valid-moves))))
+
-- 
cgit v1.2.3