Anonymous user
Generate random chess position: Difference between revisions
m
→{{header|Haskell}}
Line 818:
main :: IO ()
main = BoardState emptyBoard <$> newStdGen >>= draw . evalState buildBoard
where
buildBoard = placeKings >> placePawns >> placeRemaining >> getBoard</lang>
| |||