SICP-练习2.17

【问题】

请定义出过程last-pair，它返回只包含给定（非空）表里最后一个元素的表：

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

(34)

【分析】

last-pair需要处理一下三种情况：

1. 空表：引发一个错误
2. 单个元素的表：返回这个表本身
3. 多于一个元素的表：继续向列表右边前进

【代码】

(define (last-pair lst)
         (cond ((null? lst)
                     (error "list is empty"))
                   ((null? (cdr lst))
                       lst)
                   (else
                       (last-pair (cdr lst)))))

SICP-练习2.17

原文：http://blog.csdn.net/jjjcainiao/article/details/38047987