(define (fringe items)
(define (iter remainder-items result)
(if (null? remainder-items)
result
(iter (cdr remainder-items)
(append result (if (pair? (car remainder-items))
(fringe (car remainder-items))
(cons (car remainder-items) '()))))))
(iter items '()))
SICP 练习2.28
最新推荐文章于 2020-01-12 17:22:35 发布