方案获取列表中的最后一个元素

Question

我试图编写一个简单的方案函数，该函数返回列表的最后一个元素。我的函数看起来应该可以工作，但是我在某些事情上失败了:

(define (last_element l)(
  (cond (null? (cdr l)) (car l))
  (last_element (cdr l))
))

(last_element '(1 2 3)) should return 3

DrRacket不断给我错误:

mcdr: contract violation
  expected: mpair?
  given: ()

由于(null? '())是真实的，所以我不明白为什么它不起作用。

我认为这是一个我需要做功课的函数(写函数last-element不是任务)，并且说明说我不能使用内置函数reverse，所以我不能只做(car (reverse l))
如何修复此功能？

Answer 1

您的语法完全错误。函数主体周围有多余的括号，而cond子句周围没有足够的括号，并且递归情况甚至不在cond内，因此无论测试成功还是失败，它都可以完成。以下过程应该起作用:

(define (last_element l)
  (cond ((null? (cdr l)) (car l))
        (else (last_element (cdr l)))))