将两个函数应用于元组列表

Question

我有一个元组列表，其中包含以下形式的信息：

carDatabase :: [Car]
carDatabase = [("Ford", "Focus", 2003, [("Autotrader", 9995), ("Parkers", 9495), ("Motors", 9995)]), ("Vauxhall", "Corsa", 2005, [("Autotrader", 5995), ("FOW", 7000), ("Gumtree", 6500)]), ...]

我想做的是map此列表以返回每个元组的第一个元素的字符串列表（我有一个函数用carMan (x,_,_,_) = x)做到这一点carMan (x,_,_,_) = x)而且还使用toLower函数，我无法找到一种方法将它们组合在一起，无论是与函数组合还是映射地图等。

这是我最近的。

mapTest :: [Car] -> [String]
mapTest cs = map toLower (map carMan cs)

任何帮助，将不胜感激。

这是我得到的错误：

mapTest :: [Car] -> [String]
mapTest cs = map (toLower . carMan) cs

Couldn't match type ‘Char’ with ‘[Char]’
    Expected type: Char -> String
      Actual type: Char -> Char
    In the first argument of ‘(.)’, namely ‘toLower’
    In the first argument of ‘map’, namely ‘(toLower . carMan)’

cars.hs:197:37:
    Couldn't match type ‘[Char]’ with ‘Char’
    Expected type: [(Char, String, Int, [(String, Int)])]
      Actual type: [Car]
    In the second argument of ‘map’, namely ‘cs’
    In the expression: map (toLower . carMan) cs

Answer 1

您可以使用进行功能组合.

map ((map toLower) . carMan) cs

或使其成为辅助函数：

strLower :: String -> String
strLower = map toLower

mapTest :: [Car] -> [String]
mapTest = map (strLower . carMan)