Bertrand Felgenhauer[1] wrote a peg solitaire game[2] using Prompt[3]
to interact with the user.
Here's the core game loop:
-- move a peg into a certain direction
data Move = Move Pos Dir
-- solitaire interface
data Request a where
RMove :: Board -> [Move] -> Request Move -- select a move from given list
RDone :: Board -> Int -> Request () -- game over
-- implement the game logic
game :: Prompt Request ()
game = game' start
-- find possible moves, end game if there are none, otherwise ...
game' :: Board -> Prompt Request ()
game' b = do
let options = filter (validMove b) allMoves
if null options then prompt $ RDone b (length (pegs b))
else game'' b options
-- ... prompt for a move and execute it
game'' b options = do
Move (x, y) d <- prompt $ RMove b options
let (dx, dy) = delta d
game' (Board (board b // [((x, y), Empty),
((x + dx, y + dy), Empty),
((x + 2*dx, y + 2*dy), Peg)]))
-- ryan
[1] http://www.haskell.org/pipermail/haskell-cafe/2008-January/038301.html
[2] http://int-e.home.tlink.de/haskell/solitaire.tar.gz
[3] http://hackage.haskell.org/cgi-bin/hackage-scripts/package/MonadPrompt-1.0.0...
On Mon, Apr 21, 2008 at 8:22 AM, Dougal Stanton
I'm having a go at making a functional board game (the back-end logic for one, at least) and as with all good projects it raises lots of questions. But I'll keep it to one this time.
Does anyone know of functional-style implementations of chess/draughts/go/anything else that might give me ideas? I am writing a game of Thud (yes, from the Terry Pratchett book...) but I don't hold much hope of their being a functional-style Thud game already in existence!
Cheers,
D.
-- Dougal Stanton dougal@dougalstanton.net // http://www.dougalstanton.net _______________________________________________ Haskell-Cafe mailing list Haskell-Cafe@haskell.org http://www.haskell.org/mailman/listinfo/haskell-cafe