递归拆嵌套表
;;递归拆嵌套表 (defun splitList(lst / return) (foreach x lst (setq return (if (listp x) (append return (splitList x)) (append return (list x)) ) ) ) return )
;;递归拆嵌套表 (defun splitList(lst / return) (foreach x lst (setq return (if (listp x) (append return (splitList x)) (append return (list x)) ) ) ) return )
相关推荐