list的问题

xinxirong

( vl-list-length '(1 2 . 3))这个不出错，但返回nil
(length '(1 2 . 3))；这个直接函数出错

zjsru_18_505

语法

   (vl-list-length  list-or-cons-object)

功能

   计算表的长度。

说明

参数 list-or-cons-object 为表或点对表。

返回值:

若参数是真正的表，则返回包含表长度的整数。如果 list-or-cons-object 为点对表，则返回 nil。

兼容性提示：vl-list-length 函数对点对表参数返回 nil，而相应的普通 LISP 函数的参数若是点对表，将返回错误信息。

样例:

1)_$ (vl-list-length nil)

0

2)_$ (vl-list-length '(1 2))

2

3)_$ (vl-list-length '(1 2 . 3))

nil

请参见 listp 函数。

前生

一个表
(setq ls(list 1 2 3 4 5 6 7  9 10 11  13 14 15))
(setq n -1)
(repeat (length ls);(setq n (length ls))
  (princ (nth (setq n (1+ n)) ls))
  (princ "\n")
)
输出结果
1
2
3
4
5
6
7
9
10
11
13
14
15

如何输出成
1-7
9-11
13-15

前生

昨天晚上自己想了一下，写了个子函数，处理好了。谢谢！

zjsru_18_505

借楼完毕，已删除