遍历自定义类型并访问haskell中的属性

Question

我在下面有自定义类型：

-- (Int,Int,Int) = (Year, Month, Day)
type Birth = (Int, Int, Int)
type Book = String
data Author = Author Book Book Book Birth

我以为，[[（Q1）如果有一种方法可以遍历Author内部的属性，则意味着一个函数应用于fun类型的Author将分别返回Book值。我曾考虑使用

BookA :: Author -> Book
BookA (Author bkA _ _ _) = bkA

或case...of声明要分别获取所有三本书，但这太多余了。有没有办法迭代或递归？
也，
（Q2）

如何在单个函数中获得生日：

birth :: Author -> Birth
birth (Author _ _ _ birth) = birth

bDay :: Birth -> Int
bDay (_,_,bDay) = bDay

非常感谢你们。

我在下面具有自定义类型：-（Int，Int，Int）=（年，月，日）类型出生=（Int，Int，Int）类型Book =字符串数据Author = Author Book Book Book我在想的出生（Q1）是否有办法...

Answer 1

Q1：您可以通过模式匹配同时获取所有三本书，然后将它们作为列表返回：

Answer 2

我在想（

Q1