无法理解 Haskell 树

Question

我在树上遇到了一些问题，我试图制作一个简化的家谱（家谱树），我只从一个人开始，比如说鲍勃爷爷，我会尽力画这个：

                                        BOB
                                         |
                                     /        \
                                 SIMON         RUDY
                                /    \         /  \
                            ROBBIE  MARTHA  TOM   ISABEL

所以，鲍勃爷爷和奶奶有 2 个孩子（在这里没关系）西蒙和鲁迪，然后西蒙和鲁迪各有 2 个孩子（只有 1 个父母再次重要），请注意，这不一定是树我想做一个例子，你们可以用来帮助我。我想把它作为一个数据家族，然后有一个函数来启动“根”，这将是 Bob 爷爷，然后有另一个函数可以让我将某人添加到树中，就像添加 Bob 的后裔一样。

到目前为止，这就是我的atm（我尝试了其他东西并彻底改变了它）：

    module Geneaology where
    data Family a = Root a [Family a] | Empty deriving (Show, Read)

    main :: IO()
    main = do
    root :: String -> Family
    root a = ((Root a) [Empty])

现在，这根本不起作用并给我一个解析错误：

t4.hs:9:10: parse error on input ‘=’

我已尝试解决此问题并更改代码以寻找其他方式，并且也看到了其他帖子，但没有任何进展...

我想我已经说清楚了，提前谢谢xD

Answer 1

你有语法错误，你可以在main中用let和lambda创建一个函数，然后使用它

data Family a = Root a [Family a] | Empty deriving (Show, Read)

main :: IO()
main = do
  let root  = (\a  -> Root a [Empty])
  print(root "Bob")

但你也可以在 main 之外定义函数并在后面调用它们：

root :: String -> Family String
root a = Root a [Empty]

main :: IO()
main = do
  print(root "Bob")