functional-programming - 计划作业

Question

如何设计一个功能内容 输入单个原子列表 lat 并返回 lat的内容。因此'(a b c a b c d d)的内容是'(a b c d)。

Answer 1

下面的过程 content 应该可以满足您的需求。

(define (work x y)
  (if (null? (cdr x))
      (if (in? (car x) y)
          y 
          (cons (car x) y))
      (if (in? (car x) y)
          (work (cdr x) y)
          (work (cdr x) (cons (car x) y)))))

(define (in? x y)
  (if (null? y)
      #f
      (if (equal? x (car y))
          #t
          (in? x (cdr y)))))

(define (content x) (work x (list)))

content 过程接受一个列表作为参数。它将列表发送到另一个名为 work 的过程。此过程处理列表并将列表中的项目添加到新列表(如果它们不在新列表中)。 work 过程使用另一个称为 in 的过程，它检查一个项目是否是列表的成员。

我的解决方案基本上将您的问题分为两个子问题，并使用在比您的原始问题更低的抽象级别上运行的过程。

希望对您有所帮助。