怎么将多级表用函数按先后顺序转为一级表

linyangmjtd

有谁知道怎么将表'(1 2 (3 4 (5 "6")))  变成表'(1 2 3 4 5 "6")

xvjiex

(defun onelst (lst1 / lst)
  (foreach a lst1
    (if (listp a)
      (setq lst(append (onelst a) lst))
      (setq lst(cons a lst))
    )
  )
)
(princ(reverse (onelst '(1 2 (3 4 (5 "6"))))))

linyangmjtd

xvjiex 发表于 2020-12-11 14:47
(defun onelst (lst1 / lst)
  (foreach a lst1
    (if (listp a)

感谢！我研究下

wzg356

沙发可改为

(defun onelst1 (lst1 / lst)
  (foreach a lst1
    (if (listp a)
      (setq lst(append lst (onelst a)))
      (setq lst(append lst(list a)))
    )
  )  
)
;(onelst1 '(1 2 (3 4 (5 "6"))))

xvjiex

wzg356 发表于 2020-12-11 19:12
沙发可改为

(defun onelst1 (lst1 / lst)

append比较容易理解和使用，就是速度慢，尽量使用 cons。

linyangmjtd

wzg356 发表于 2020-12-11 19:12
沙发可改为

(defun onelst1 (lst1 / lst)

好的，数据处理不多用APPEND好点，数据多用cons

linyangmjtd

xvjiex 发表于 2020-12-11 20:19
append比较容易理解和使用，就是速度慢，尽量使用 cons。

嗯呢 是的，我改为了APPEND

wzg356

没关系啊，也可把沙发合并成一个函数，结果更直观，直接是要的结果

crtrccrt

(listp a)

改为

(and a (listp a))

测试

(onelst '(1 2 nil (3 4 (5 "6"))))

正确返回

(1 2 nil 3 4 5 "6")