我在这里有一个元组列表,我想在每个元组中的第一个元素上应用函数 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)]
map
定义为:
map :: (a -> b) -> [a] -> [b]
这意味着它是一个函数,该函数从A类型到B类和A类型A列表,然后返回类型B的列表。正如@pdexter和@karakfa在评论中指出的那样,这正是您所需要的。
map f list
那么您需要什么?好吧,您的列表是一个元组列表,您想将功能应用于每个元组的第一个元素,因此(正如@Karakfa指出的那样)您所需要的只是
map (dir . fst) list
这将使用您的自定义DIR函数构成功能FST,以提供一个新功能,该功能将占用元组的第一个元素,并竭尽所能。然后地图将其应用于整个列表。