introduction to functional programming - ex 3.3.12

ifp__ex_3_3_12.hs

module Score where

import Data.List

cow :: [Char] -> [Char] -> Int
cow sol input = length [1 | (x, y) <- zip sol  input, x==y]

bull :: [Char] -> [Char] -> Int
bull sol input = length sol - length (sol \\ input)

score :: [Char] -> [Char] -> (Int, Int)
score sol input = (cow sol input, bull sol input - cow sol input)