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)

これにより、必要な機能を構築するためのすべてが得られるはずです。