比较简单,判断(cdr s)是否为空即可
(define last-pair
(lambda (s)
(if (null? (cdr s))
(car s)
(last-pair (cdr s)))))
(last-pair '(23 72 149 34))
(define last-pair
(lambda (s)
(if (null? (cdr s))
(car s)
(last-pair (cdr s)))))
(last-pair '(23 72 149 34))