1.用 LISP语言写一个函数定义用来求表的长度。 2。用LISP语言写一个函数定义将表逆置。

[jianhongzhao]

1.用 LISP语言写一个函数定义用来求表的长度。
2.用LISP语言写一个函数定义将表逆置。

先回答先给分，谢谢。

[jianhongzhao]

我顶!!

[uhnehcuhnehc]

也是我想知道的

[lyingbo]

貌似使用这个语言的不是非常多吧

帮你顶下

[madpc]

只会elisp

第一问:

(defun lenlist (lst)
(setq r 0)
(dolist (var lst) (setq r (+ 1 r)))
r
)

(lenlist '(1 2 3 4 5 6 '(abc))) -- 调用,返回7

[madpc]

第二问:
简单的
(reverse '(1 2 3 4 5 6 '(abc)))


手工写的
(defun CAT (L1 L2)
(cond
((null L1) L2)
((atom (cdr L1)) (cons (car L1) L2))
(t (cons (car L1) (CAT (cdr L1) L2)))))

(defun revlist (L)
(cond
((null L) nil)
(t (CAT (revlist (cdr L)) (list (car L))))))

(revlist '(1 2 3 4 5 6 '(abc))) -- 调用

[jiankangshiye]

1.用 LISP语言写一个函数定义用来求表的长度。
(defun ilength (lst)
(cond
((null lst) 0)
(t (+ 1 (ilength (cdr lst))))))

2.用LISP语言写一个函数定义将表逆置。
(defun ireverse (lst)
(cond
((null lst) lst)
((= 1 (ilength lst)) lst)
(t (append (ireverse (cdr lst)) (cons (car lst) nil)))))
lispworks 6.0.1 免费版下测试通过。