如何删除表的最后一个元素？

zhhunicorn · 发表于 2011-6-8 13:02:39

l1=(a b c d e )
l2=(a b c d)

zhhunicorn · 发表于 2011-6-8 13:25:02

我是把一个一个元素遍历一遍再重新把除最后一个元素组成新表，
我感觉这办法有点恶心啊，大虾们，帮我搞点好的办法。

zhynt · 发表于 2011-6-8 13:39:38

本帖最后由 zhynt 于 2011-6-8 14:25 编辑

将表反转
去掉第一个元素
再翻回来
(setq l2 (reverse l1))
(setq l2 (cdr l2))
(setq l2 (reverse l2))

lenlenq · 发表于 2011-6-8 19:01:47

也来凑个热闹
(vl-remove(last l1)l1)

就一小卒 · 发表于 2011-6-8 19:26:41

~~~~~~

淮上 · 发表于 2011-6-8 20:46:47

lenlenq 发表于 2011-6-8 19:01
也来凑个热闹
(vl-remove(last l1)l1)

你这个不是删除最后一个元素，而是删除和最后一个元素相同的所有元素

'

lht · 发表于 2011-6-8 21:11:04

(entdel (entlast))

ZZXXQQ · 发表于 2011-6-8 21:37:50

(setq lst (reverse(cdr(reverse lst))))

zhb236623 · 发表于 2011-6-8 23:20:36

将表反转
去掉第一个元素
再翻回来
(setq l2 (reverse l1))
(setq l2 (cdr l2))
(setq l2 (reverse l2))
这个简单，好用。
(setq lst (reverse(cdr(reverse lst))))
这个简版，看起来更简洁。

zhhunicorn · 发表于 2011-6-9 11:26:42

lht 发表于 2011-6-8 21:11
(entdel (entlast))

这个只能处理图元吧，也能处理列表？

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

[基础] 如何删除表的最后一个元素？