Bonjour,
Je suis toujours sur mon coding dojo (qui s'est transformer en kata FP pour moi) et du coup je me pose des questions là dessus :
getStats :: Extractor -> [MonthStmt] -> Statistics
getStats f = makeStatistics . extract f
weeklyStats :: Extractor -> [MonthStmt] -> [Statistics]
weeklyStats e d = map ((\f -> getStats f d) . filterByMonth) [first, second, third, forth]
where filterByMonth m = Extractor (\w -> catMaybes [m w]) allDaysF allTemperaturesF `mappend` e
monthlyStats :: Extractor -> [MonthStmt] -> [Statistics]
monthlyStats e = map (\m -> getStats e [m])