练习2.59
我们可以采用迭代来完成这个过程，至于怎么迭代的，接下来就是代码了。
(define (union-set set1 set2) (define (union-set-iter set1 set2) (if (null? input) (reverse result) (let ((current-element (car input)) (remain-element (cdr input)) (if (element-of-set? current-element result) (union-set-iter remain-element result) (union-set-iter remain-element (cons current-element result)))))) (union-set-iter (append set1 set2) ‘() ))感谢访问，希望对您有所帮助。 欢迎关注或收藏、评论或点赞。
为使本文得到斧正和提问，转载请注明出处：
http://blog.csdn.net/nomasp
版权声明：本文为 NoMasp柯于旺 原创文章，未经许可严禁转载！欢迎访问我的博客：http://blog.csdn.net/nomasp
来源：oschina
链接：https://my.oschina.net/u/2345971/blog/503259