evaluate package:combinatorial

evaluate :: Ord a => [a] -> [a] -> Eval
combinatorial Combinatorics.Mastermind
Given the code and a guess, compute the evaluation. 
>>> filter ((Mastermind.Eval 2 0 ==) . Mastermind.evaluate "aabbb") $ replicateM 5 ['a'..'c']
["aaaaa","aaaac","aaaca","aaacc","aacaa","aacac","aacca","aaccc","acbcc","accbc","acccb","cabcc","cacbc","caccb","ccbbc","ccbcb","cccbb"]
evaluateAll :: Ord a => [[a]] -> [a] -> Map Eval Int
combinatorial Combinatorics.Mastermind