diff options
| -rw-r--r-- | strategies/random-move.scm | 6 |
1 files changed, 6 insertions, 0 deletions
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)))) + |