lisp 习题 our-union-白红宇

lisp 习题 our-union

阅读量：2496 次

发布时间：2019-05-11

本文共 575 字，大约阅读时间需要 1 分钟。

写一个保留原本列表中元素顺序的 union 版本：

> (new-union '(a b c) '(b a d))(A B C D)

CL-USER> (defun our-union (fi la)

(and (listp fi)

(listp la)

(let (( res (reverse fi)))

(dolist (elt la)

(pushnew elt res))

(reverse res))))

STYLE-WARNING: redefining COMMON-LISP-USER::OUR-UNION in DEFUN

OUR-UNION

CL-USER> (our-union '(a b c) '(b a d))

(A B C D)

CL-USER> (our-union 'a '(b a d))

NIL

CL-USER> (our-union '(a b) 'a)

NIL

CL-USER> (our-union '(a b) 'a)

NIL

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/133735/viewspace-740221/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/133735/viewspace-740221/

你可能感兴趣的文章

理解sizeof()

查看>>

Vue学习笔记之vue-cli脚手架安装和webpack-simple模板项目生成

Es6 中let var和 const 了解

查看>>

巧用队列之”Voting“

查看>>

Oracle数据类型number(m,n)

TZC Intercommunication System