go-counting: Move hints to HINTS.md

exercises/go-counting/HINTS.md

@@ -0,0 +1,16 @@
+## Hints
+
+To complete this exercise, you need to implement the following functions:
+
+- `territories` returns the coordinates (1 based, top left is (1,1))
+of the points in each territory along with who "owns" the territory.
+
+- `territoriesFor` returns the territory that contains the coordinate
+along with the owner of the territory. If the coordinate does not point
+to an empty location, returns *Nothing*.
+
+A territory is owned by one of the players if that player's stones
+are the only stones adjacent to the territory.
+
+You will find the type signatures already in place, but it is up to you
+to define the functions.

exercises/go-counting/src/Counting.hs

@@ -9,15 +9,8 @@ import Data.Set (Set)
 data Color = Black | White deriving (Eq, Ord, Show)
 type Coord = (Int, Int)
 
--- | Returns the coordinates (1 based, top left is (1,1)) of of the points
--- in each territory along with who "owns" the territory. A territory is
--- owned by one of the players if that player's stones are the only
--- stones adjacent to the territory.
 territories :: [[Char]] -> [(Set Coord, Maybe Color)]
 territories = undefined
 
--- | Returns the territory that contains the coordinate along with the
--- owner of the territory. If the coordinate does not point to an empty
--- location returns Nothing.
 territoryFor :: [[Char]] -> Coord -> Maybe (Set Coord, Maybe Color)
 territoryFor = undefined

exercises/go-counting/test/Tests.hs

@@ -4,30 +4,6 @@ import Data.List (foldl', sort)
 import qualified Data.Set as Set
 import Counting (Color(..), territories, territoryFor)
 
--- Your code should define the following types:
---
---   data Color = Black | White
---     deriving (Eq, Ord, Show) -- More derivations are allowed
---
--- The signatures below assume the following type alias:
---
---   type Coord = (Int, Int)
---
--- Your code should define the following functions:
---
--- territories :: [[Char]] -> [(Set Coord, Maybe Color)]
---
---   Returns the coordinates (1 based, top left is (1,1)) of of the points
---   in each territory along with who "owns" the territory. A territory is
---   owned by one of the players if that player's stones are the only
---   stones adjacent to the territory.
---
--- territoryFor :: [[Char]] -> Coord -> Maybe (Set Coord, Maybe Color)
---
---   Returns the territory that contains the coordinate along with the
---   owner of the territory. If the coordinate does not point to an empty
---   location returns Nothing.
-
 exitProperly :: IO Counts -> IO ()
 exitProperly m = do
   counts <- m