递归拆嵌套表
;;递归拆嵌套表 (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 )
相关推荐
沉淀小子:能力就是大于title的,支持楼主。你的室友吃方面你还得跟他学