1

我在这里有一个元组列表，我想dir..在每个元组的第一个元素上应用函数。我怎样才能做到这一点？提前非常感谢！

[ ("grid", gridResponse),
("graph", graphResponse),
("image", graphImageResponse),
("timetable-image", timetableImageResponse x),
("graph-fb",toResponse ""),
("post-fb",toResponse ""),
("test", getEmail),
("test-post", postToFacebook),
("post", postResponse),
("draw", drawResponse),                  
("about", aboutResponse),
("privacy" ,privacyResponse),
("static", serveDirectory),
("course", retrieveCourse),
("all-courses", allCourses),
("graphs", queryGraphs),
("course-info", courseInfo),
("depts", deptList),
("timesearch",searchResponse),
("calendar",calendarResponse),
("get-json-data",getGraphJSON),
("loading",loadingResponse),
("save-json", saveGraphJSON)］
4

1 回答 1

5

map定义为：

map :: (a -> b) -> [a] -> [b]

这意味着它是一个函数，它接受一个从类型 a 到类型 b 的函数和一个类型 a 的列表，然后返回一个类型 b 的列表。正如@pdexter 和@karakfa 在评论中指出的那样，这正是您所需要的。

map f list

那么你需要什么？好吧，您的列表是一个元组列表，并且您想将一个函数应用于每个元组的第一个元素，所以（正如@karakfa 指出的那样）您所需要的只是

map (dir . fst) list

这将函数 fst 与您的自定义 dir 函数组合在一起，为您提供一个新函数，该函数将获取元组的第一个元素并执行您的 dir 函数对其执行的任何操作。然后 map 将其应用于整个列表。

于 2016-06-23T16:45:15.270 回答