你如何使用代数球拍解构 let 绑定中的值

Question

我正在尝试在此处 http://pllab.is.ocha.ac.jp/~asai/cw2011tutorial/main-e.pdf 使用 Racket 而不是 OCaml 完成有关定界延续的教程，但是在尝试使用 Racket 的代数数据类型来表达我的程序时遇到障碍，以便我的示例代码密切跟踪转到教程。

具体来说，我不知道如何使用 let 表单绑定实例的字段。在这个简单的示例中，我定义了一个 Tree 总和类型，其中包含两个产品类型 Empty 和 Node，其中每个节点将包含一个左分支、一个值和一个右分支。

#lang algebraic/racket/base
(require algebraic/function)

(data Tree (Empty Node))

(define tree1 (Node (Node Empty 1 Empty) 2 (Node Empty 3 Empty)))

(let ([(Node left value right) tree1]) value)

我期望此表达式的计算结果为 2，因为 value 绑定到根节点的值字段，但它失败并返回 let: bad syntax (not an identifier) in: (Node left value right)。但是，如果我the docs理解正确，这应该是可能的。

例如，我可以定义 walk 函数来递归访问树中的每个节点，并使用模式匹配来绑定树的左侧和右侧，这非常有效。

(define walk (function
 [Empty `done]
 [(Node left value right)
  (walk left)
  (println value)
  (walk right)]))

在 let 的背景下我似乎无法做到这一点。我的语法错了吗？我使用的 let 版本正确吗？这是你甚至可以做的事情吗？

Answer 1

看起来 algebraic/racket/base 没有提供 let 的语法，所以它只是从 vanilla racket/base 获得的。不确定这是故意的还是错误，但无论哪种方式，您都可以通过在代码中添加 (require algebraic/racket/base/forms) 来解决它。给你：

#lang algebraic/racket/base

(require algebraic/racket/base/forms)
(require algebraic/function)

(data Tree (Empty Node))

(define tree1 (Node (Node Empty 1 Empty) 2 (Node Empty 3 Empty)))

(let ([(Node left value right) tree1]) value)

计算结果为 2。

你如何使用代数球拍解构 let 绑定中的值

How do you destructure values in a let binding using algebraic racket

algebraic-data-types

racket