Example:
sash> (last_but_one '(a b c d))
sash> c
(1)跟P01类似,只多判断一个条件,即如果列表里只有一个元素,则返回#t
。
(define last_but_one
(lambda (ls)
(if (null? ls)
(raise 'not-found)
(let ([lr (cdr ls)])
(cond [(null? lr) (raise 'not-found)] [(null? (cdr lr))