请问如何拆分一个表？

bdwzx · 发表于 2006-3-24 01:15

我有一个３７个原子的表，请问如何在第２０个原子处将表拆分成两个？

超然A · 发表于 2006-3-24 07:26

思路：

建立一个空表LIST1，逐一读取已知表（利用循环），读取到的原子加到空表LIST1中。循环读取20次。

读去20号原子以后的原子建立的表可以用这样的方法，对已直表循环做CDR处理，处理20次后得到的表就是以第21号原子开始的表。

方法还有很多。比如你要前20个原子的表，也可以先将已知表用reverse函数将表倒过来，然后循环做CDR处理（处理次数就是37减20（17）次），然后将得到的表用reverse函数倒回去即可。

Andyhon · 发表于 2006-3-24 08:51

(setq    Here 19      ;; 18 or 19 or 20 .... as what you like
      LstHere (nth here Lst37)
       LstN20 (member LstHere Lst37)
      LstN19- (reverse (cdr (member LstHere (reverse Lst37))))
)

bdwzx · 发表于 2006-3-24 12:05

谢谢

无痕 · 发表于 2006-3-27 02:56

3楼是不严谨的，如果表中有重复元素，就容易出错

(defun divlst (lst n /)
(setq i -1)
(mapcar '(lambda(x)
(if (< (setq i(1+ i)) n)
(setq lst1(cons x lst2))
(setq lst2 (cons x lst2))) )
lst)
(list lst1 lst2)
)

账号		自动登录	找回密码
密码			注册