scheme - 您将如何使用“累积”编写“最后一个”函数？

Question

我一直在研究 sicp 并尝试使用累积来编写“最后一个”函数

(define (accumulate f x xs)
  (if (null? xs)
      x
      (f (car xs)
         (accumulate f x (cdr xs)))))

 (last '(1 2 3 4 5)) ;;=> (5)

---

我试过了，但它不起作用

 (define (last seq)
   (accumulate (lambda (x y) x)
               '()
               seq))

Answer 1

尝试这个：

(define (last lst)
  (accumulate (lambda (x y)
                (if (null? y)
                    (cons x y)
                    y))
              '() lst))