haskell - 使用过滤器添加到列表中的元组

Question

Authors = [(String, Int)]
File Filename DateTime Authors

例子：

File "DSC023.jpg" "01/05/2012 22:40" [("Test1",1),("Test2",2)]

我将如何搜索 DSC023.jpg 并将另一位作者添加到列表中？

findFile n = find (\(File x _ _ _) -> x == n) fileDatabase

Answer 1

你需要几个函数：

addAuthor author File x y as = File x y (author:as)

fileName File n _ _ _ = n

findFile name = find (\x -> (fileName x) == name)

这应该为您提供构建所需功能的一切。