写数据定义的麻烦

Question

我在编写简单的数据定义时遇到了麻烦。我需要知道你会如何写下一个 -

因此，个人资料包含用户的姓名，位置和关系状态以及a 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)