简洁的方案R5RS使用多个字段定义结构或类

Question

我设法用一个字段定义一个结构，如何在一个结构或类中定义多个字段？

我是R5RS的新手，我只能拿出有问题的代码，请看一下它是表示我要执行的操作的伪代码。

(define recipe 
    (let (salt 5)
         (sauce "ketchup")))

要么

(define recipe
   '((let salt 5)
     (let sauce "ketchup")))

什么是最简洁，最常用的方法？

Answer 1

大多数计划实施都通过SRFI 9提供记录。 因此，根据您的情况，您可以定义一个recipe记录类型，如下所示：

(define-record-type <recipe>
  (recipe salt sauce)
  recipe?
  (salt recipe-salt)
  (sauce recipe-sauce))

然后，您可以像这样使用它：

> (define salty-ketchup (recipe 5 "ketchup"))
> (recipe-salt salty-ketchup)
5
> (recipe-sauce salty-ketchup)
"ketchup"

---

如果您使用的是Racket，则可以使用更简单的语法来定义结构。

(struct recipe (salt sauce))