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