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