You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
31 lines
767 B
31 lines
767 B
module Strategy0 where
|
|
|
|
import Datatypes
|
|
import qualified Datatypes.Game as Game
|
|
import VM
|
|
|
|
seswlist = cycle [MoveSE, MoveSW]
|
|
|
|
strat0 :: Game -> ([Command],Int)
|
|
strat0 game = (take nsteps seswlist, score)
|
|
where
|
|
(nsteps, score) = stepr game
|
|
|
|
stepr :: Game -> (Int,Int)
|
|
stepr game = if notes == GameOver
|
|
then (1,score)
|
|
else (1 + (fst new_step), snd new_step)
|
|
where
|
|
(new_game,notes) = step game MoveSE
|
|
score = Game.score new_game
|
|
new_step = (stepl new_game)
|
|
|
|
stepl :: Game -> (Int,Int)
|
|
stepl game = if notes == GameOver
|
|
then (1,score)
|
|
else (1 + (fst new_step), snd new_step)
|
|
where
|
|
(new_game,notes) = step game MoveSW
|
|
score = Game.score new_game
|
|
new_step = (stepr new_game)
|
|
|