Sha256: 1f2af833cf71ee274da2624dae97df27c133f6f6963b586e74641398d559b493
Contents?: true
Size: 1.06 KB
Versions: 352
Compression:
Stored size: 1.06 KB
Contents
module Garden (garden, defaultGarden, lookupPlants, Plant(..)) where
import qualified Data.Map as M
import Data.List (sort)
import Data.List.Split (chunksOf)
data Plant = Grass
| Clover
| Radishes
| Violets
deriving (Enum, Eq, Show, Read)
type Student = String
type Garden = M.Map String [Plant]
defaultStudents :: [String]
defaultStudents =
[ "Alice", "Bob", "Charlie", "David", "Eve", "Fred"
, "Ginny", "Harriet", "Ileana", "Joseph", "Kincaid", "Larry"
]
fromChar :: Char -> Plant
fromChar c = case c of
'G' -> Grass
'C' -> Clover
'R' -> Radishes
'V' -> Violets
_ -> error ("Unknown plant " ++ show c)
defaultGarden :: String -> Garden
defaultGarden = garden defaultStudents
garden :: [Student] -> String -> Garden
garden students plantString = M.fromListWith (++) pairs
where plantRows = map (map fromChar) (lines plantString)
doRow = zip (sort students) . chunksOf 2
pairs = concatMap doRow (reverse plantRows)
lookupPlants :: Student -> Garden -> [Plant]
lookupPlants = M.findWithDefault []
Version data entries
352 entries across 352 versions & 1 rubygems