car

练习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:/