(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
猜你喜欢
转载自blog.csdn.net/weixin_43950523/article/details/101922453
今日推荐
周排行