[转贴]：mapcar , mapcdr

eachy

2. 
   
3. (defun mapcdr (expr liste / retl)
   
4.   (repeat (1- (length liste))
   
5.     (setq retl (cons (apply
   
6.                        expr
   
7.                        (list liste)
   
8.                      ) retl
   
9.                )
   
10.     )
    
11.     (setq liste (cdr liste))
    
12.   )
    
13.   (reverse retl)
    
14. )
    
15. (apply
    
16.   'max
    
17.   (apply
    
18.     'append
    
19.     (mapcdr '(lambda (rest /)
    
20.                (mapcar
    
21.                  '(lambda (car-von-rest /)
    
22.                     (distance (car rest)
    
23.                               car-von-rest
    
24.                     )
    
25.                   )
    
26.                  (cdr rest)
    
27.                )
    
28.              ) punkteliste
    
29.     )
    
30.   )
    
31. )

<br /> (defun mapcdr (expr liste / retl)<br />   (repeat (1- (length liste))<br />     (setq retl (cons (apply<br />                        expr<br />                        (list liste)<br />                      ) retl<br />                )<br />     )<br />     (setq liste (cdr liste))<br />   )<br />   (reverse retl)<br /> )<br /> (apply<br />   'max<br />   (apply<br />     'append<br />     (mapcdr '(lambda (rest /)<br />                (mapcar<br />                  '(lambda (car-von-rest /)<br />                     (distance (car rest)<br />                               car-von-rest<br />                     )<br />                   )<br />                  (cdr rest)<br />                )<br />              ) punkteliste<br />     )<br />   )<br /> )

qjcpj

斑竹，mapcar贴漏了吧，另能对函数做点说明吗？

小菜

mapcar是内部函数

sujia

eachy  ：你好
  俺知道你是高手，俺笨得很，举例说说mapcdr又说明功能
好吗？ 谢谢

飞马牌汽车

好像是依次对表的每个后续子表进行某个表达式操作
(setq a (list 5 6 8 6 3 1 4 2))
(mapcdr 'cdr a)
=>((6 8 6 3 1 4 2)(8 6 3 1 4 2) (6 3 1 4 2) (3 1 4 2) (1 4 2) (4 2) (2))
(mapcdr 'length a)
=>(8 7 6 5 4 3 2)
纯lisp里面可能会用这些
http://www.cs.jcu.edu.au/Subject ... nments/two/two.html
有点说明

wzg356

标记：求点集中距离最远的两个点