src/Strategies.hs

   1 module Strategies (
   2     strat1,
   3 ) where
   4
   5 import Mine
   6 import System.Random
   7 import Data.Array
   8
   9 strat1 :: StdGen -> Strategy String
  10 strat1 gen = do
  11     cfg <- getConfig
  12     view <- getView
  13     sequence_ [move p | (p, _) <- assocs view]
  14     return "Bye bye"