sicp每日一题[2.17]

Exercise 2.17

Define a procedure last-pair that returns the list that contains only the last element of a given (nonempty) list:

(last-pair (list 23 72 149 34))
(34)

这道题难度不大,而且借用之前的 length 和 list-ref 可以很轻松的完成这道题目的要求,不过我还是选择不用这两个函数,通过判断 list 最后一个元素是否为空来做。

(define (last-pair list1)
  (let ((last (car list1)))
    (if (null? (cdr list1))
        last
        (last-pair (cdr list1)))))


(last-pair (list 23 72 149 34))

; 执行结果
34
posted @ 2024-09-18 14:02  再思即可  阅读(6)  评论(0编辑  收藏  举报