abhin4v/rubyquiz
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

hlinted

Browse Source
This commit is contained in:
Abhinav Sarkar 2012-08-06 16:47:31 +05:30
parent 5388ec45f8
commit 2f7d9427f2
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
TicTacToe.hs
View File

@ -193,7 +193,7 @@ learningPlay (LearningPlayer move mem gen) board = let
in case filter (isWin (otherMove move) . snd) otherNext of in case filter (isWin (otherMove move) . snd) otherNext of
((pos,_):_) -> (LearningPlayer move mem gen, makeMove pos move board) ((pos,_):_) -> (LearningPlayer move mem gen, makeMove pos move board)
[] -> let [] -> let
scores = map (\b -> (b, boardScore b mem)) $ next scores = map (\b -> (b, boardScore b mem)) next
(board', (w, _, d)) = maximumBy (comparing (calcScore . snd)) scores (board', (w, _, d)) = maximumBy (comparing (calcScore . snd)) scores
in if w /= 0 in if w /= 0
then (LearningPlayer move mem gen, board') then (LearningPlayer move mem gen, board')