一个返回所有其他元素列表的方案过程

Question

我在 Scheme 中实现这个程序时遇到了一些麻烦，尽管我认为我已经完成了 90% 的工作。不幸的是，我需要对此有点模糊，因为这是一项家庭作业。 我想（A B C D）返回（B D）。但我收到一条错误消息，指出作为参数传递给安全车的对象 () 不是一对 | " 这是我的代码：

(DEFINE (other_el lis)
  (COND
   (( NULL? lis ) '())
   ((LIST? lis)
    (append (CADR lis) (other_el (CDR lis))))
   (ELSE (show " USAGE: (other_el [LIST])"))))

Answer 1

在我演示正确的代码之前，应该提到这段代码的一些小问题。

1. 不要将过程名称大写，例如 cdr 和在 Scheme 中定义。
2. 不要手动显示错误消息。使用例外。
3. 您应该始终缩进您的代码。 （编辑：看起来有人编辑了问题的代码以包含缩进）

不管怎样，这是你要找的功能：

(define (evens lst)
  (if (or (null? lst)             ; if the list is empty 
          (null? (cdr lst)))      ; or the list has a single element
      '()                         ; then return the empty list
      (cons (cadr lst)            ; otherwise `cons` the second element
            (evens (cddr lst))))) ; and recursively advance two elements

我在 DrRacket 5.3 中测试了该函数，并且 (evens '(A B C D)) 返回 '(B D)，正如您指定的那样。如果您有任何问题，请告诉我。祝你作业顺利！

Answer 2

这个问题比您提出的上一个问题要简单得多。请记住，您不必在每一步都计算长度（这可能非常低效），或者使用附加操作来解决它（改用cons）；这是答案的结构，因为它看起来像家庭作业，我让你填空：

(define (every-other lst)
  (if (or <???>                    ; if the list is empty 
          <???>)                   ; or the list has a single element
      <???>                        ; then return the empty list
      (cons <???>                  ; otherwise `cons` the second element
            (every-other <???>)))) ; and recursively advance two elements

如果您需要先进行一些错误检查，请使用另一个函数并在确定参数正确后调用上述过程：

(define (other_el lst)
  (if (list? lst)
      (every-other lst)
      (error "USAGE: (other_el [LIST])")))

像这样使用它：

(other_el '(A B C D E G))
=> '(B D G)