Added a strategy

Added strategy which will try to minimize the potential flips for the
opponents next turn.

1 files changed, 17 insertions, 0 deletions

diff --git a/strategies/least-potential-for-opponents-next-move.scm b/strategies/least-potential-for-opponents-next-move.scm
new file mode 100644
index 0000000..edd36d8
--- /dev/null
+++ b/strategies/least-potential-for-opponents-next-move.scm
@@ -0,0 +1,17 @@
+(use-modules (srfi srfi-1))
+
+; The potential is the total amount of flips that a player can do by all of
+; their possible moves.
+(define (potential board player)
+  (fold +
+        0
+        (map (lambda (move) (flipped-by-move move board player))
+             (valid-moves board player))))
+
+
+; Sort the valid moves by the one which, when applied, leaves the opponent with
+; the minimum ability to flip on their next turn.
+(first (sort (valid-moves)
+             (lambda (a b)
+               (< (potential (apply-move a) (other-player))
+                  (potential (apply-move b) (other-player))))))