如何在 Common LISP 中递归地删除嵌套括号,例如
(unnest '(a b c (d e) ((f) g))) => (a b c d e f g)
(unnest '(a b)) => (a b)
(unnest '(() ((((a)))) ())) => (a)
Thanks
这就是我要做的:
(ql:quickload "alexandria")
(alexandria:flatten list)
这有效主要是因为我有快速口语 http://www.quicklisp.org/已经安装了。
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)