学步园

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