[LISP函数]：一些lisp基本函数的定义

zml84 · 发表于 2009-1-8 19:38:52

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

<CENTER><H1>2009-01-06一些lisp基本函数的定义.lsp</H1></CENTER>
<SCRIPT LANGUAGE="JavaScript">document.write("最后修改时间: " + document.lastModified)
</SCRIPT>
<HR SIZE=5><PRE>;;;============================================
;;;append 函数的定义
(defun ZL-APPEND (X Y)
(if (= X NIL)
Y
(cons (car X) (ZL-APPEND (cdr X) Y))
)
)
;|;;测试
_$ (APPEND 2 '(3 4))
; 错误: 参数类型错误: listp 2
_$ (zl-APPEND 2 '(3 4))
; 错误: 参数类型错误: consp 2
_$ (zl-APPEND '(2) 3 )
(2 . 3)
_$ (zl-APPEND '(2) '(3) )
(2 3)
;;|;
;;;============================================
;;;============================================
;;;APPLY 函数的定义
(defun ZL-APPLY (FUN LST)
(eval (cons FUN LST))
)
;|;;测试
_$ (ZL-APPLY '+ '(1 2 3))
6
_$ (ZL-APPLY 'min '(1 2 3))
1
;;|;
;;;============================================
;;;============================================
;;;NTH 函数的定义
(defun ZL-NTH (INT LST)
(if (= INT 0)
(car LST)
(ZL-NTH (1- INT) (cdr LST))
)
)
;|;;测试
_$ (ZL-NTH 0 '(0 1 2 ))
0
_$ (ZL-NTH 1 '(0 1 2 ))
1
_$ (ZL-NTH 2 '(0 1 2 ))
2
;;|;
;;;============================================
;;;============================================
;;; ABS 函数的定义
(defun ZL-ABS (X)
(if (< X 0)
(- X)
X
)
)
;|;;测试
_$ (ZL-ABS 2.5)
2.5
_$ (ZL-ABS -2.5)
2.5
_$
;;|;
;;;============================================
;;;============================================
;;; 仿写 reverse
(defun ZL-REVERSE (LST)
(if (= LST NIL)
NIL
(append (ZL-REVERSE (cdr LST)) (list (car LST)))
)
)
;;;============================================
;;;============================================
;;; 仿写 length
(defun ZL-LENGTH (LST)
(if (= LST NIL)
0
(1+ (ZL-LENGTH (cdr LST)))
)
)
;;;============================================
;;;============================================
;;; group
;;;功能：编组
;;; (zl-group '(a b c d e f g) 2)
;;; ==>>> ((A B) (C D) (E F) (G))
(defun ZL-GROUP (LST N / TMP)
(if (<= (length LST) N)
(list LST)
(progn (repeat N
 (setq TMP (append TMP (list (car LST)))
 LST (cdr LST)
 )
 )
 (append (list TMP) (ZL-GROUP LST N))
)
)
)
</PRE>

qjcpj · 发表于 2009-1-8 19:44:08

关注中，请继续...

zhang8755 · 发表于 2009-1-8 20:24:35

仿写 reverse 里用了append和递归会导致速度变慢
试试表的大小在1000个元素以上

雄啸 · 发表于 2009-1-8 21:29:09

append慎用，但是递归效率也不低

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

[LISP函数]：一些lisp基本函数的定义

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子