scheme - 编写数据定义的麻烦

Question

我无法编写简单的数据定义。我需要知道您将如何为以下内容编写一个-

因此，个人资料由用户的姓名、位置和关系状态以及 lof（朋友列表）组成。朋友由姓名、位置和关系状态组成。您将如何编写数据定义并提供个人资料、朋友和 lof 的数据示例？

不知道是不是这样

;; A profile is one of: 
;; - empty 
;; - (make-user name location relationship-status LOF)

Answer 1

您在数据定义方面遇到的“麻烦”究竟是什么？它们都非常简单，几乎是描述的直接翻译：

(define-struct profile (name location relationship-status lof))
(define-struct friend  (name location relationship-status))

(define lof
  (list
   (make-friend "Lucy" "Minneapolis" 'married)
   (make-friend "Schroeder" "Minneapolis" 'married)
   (make-friend "Patty" "Minneapolis" 'open-relationship)))

(make-profile "Charlie" "Minneapolis" 'widower lof)