added agent
authorMart Lubbers <mart@martlubbers.net>
Mon, 7 Mar 2016 13:35:37 +0000 (14:35 +0100)
committerMart Lubbers <mart@martlubbers.net>
Mon, 7 Mar 2016 13:35:37 +0000 (14:35 +0100)
code/Sokoban.dcl

index 30e9465..32b5e11 100644 (file)
@@ -4,6 +4,6 @@ definition module Sokoban
        width :: Int,
        height :: Int,
        data :: [[SokobanTile]]}
-:: SokobanTile = Wall | Free | Box | Target
+:: SokobanTile = Wall | Free | Box | Target | Agent
 
 parse :: String *World -> (SokobanPuzzle, *World)