嵌套表如何转成级别一致的表

革天明

( ((16 24) (16 16) <图元名: 7ef7e850>)
  ((32 16) (32 8) <图元名: 7ef7e838>)
  (((24 16) (16 16) <图元名: 7ef7e830>)
    ((24 16) (24 8) <图元名: 7ef7e830>)
  )
  (((16 8) (24 8) <图元名: 7ef7e828>)
    ((16 8) (8 8) <图元名: 7ef7e828>)
    ((16 8) (16 16) <图元名: 7ef7e828>)
  )
  (((8 16) (16 16) <图元名: 7ef7e820>)
    ((8 16) (8 8) <图元名: 7ef7e820>)
  )
  ((0 16) (0 8) <图元名: 7ef7e818>)
)

如何变成
( ((16 24) (16 16) <图元名: 7ef7e850>)
  ((32 16) (32 8) <图元名: 7ef7e838>)
  ((24 16) (16 16) <图元名: 7ef7e830>)
  ((24 16) (24 8) <图元名: 7ef7e830>)
  ((16 8) (24 8) <图元名: 7ef7e828>)
  ((16 8) (8 8) <图元名: 7ef7e828>)
  ((16 8) (16 16) <图元名: 7ef7e828>)
  ((8 16) (16 16) <图元名: 7ef7e820>)
  ((8 16) (8 8) <图元名: 7ef7e820>)
  ((0 16) (0 8) <图元名: 7ef7e818>)
)

也就是说将表的级别降至”一个表“的程度
函数最好有通用性，例子中”一个表“中包含三个小元素。

nzl1116

(apply 'append (mapcar '(lambda (x) (if (vl-every 'listp x) x (list x))) Lst))

革天明

nzl1116 发表于 2013-10-22 10:13
(apply 'append (mapcar '(lambda (x) (if (vl-every 'listp x) x (list x))) Lst))

我在数据生成的过程中避免出现这种格式的表，所以问题也算解决，你的这种方案我会测试一下，你的代码太精简了，牛！