返回点表的左下点和右上点

Lisphk

p4-------------p2
|              |
|              |
p1-------------p3

(foo p1 p2) ==> (p1 p2)
(foo p2 p1) ==> (p1 p2)
(foo p3 p4) ==> (p1 p2)
(foo p4 p3) ==> (p1 p2)

1. (defun bar (ptLst)
   
2.   (list (apply 'mapcar (cons 'min ptLst)) (apply 'mapcar (cons 'max ptLst)))
   
3. )
   

(defun bar (ptLst)<br />   (list (apply 'mapcar (cons 'min ptLst)) (apply 'mapcar (cons 'max ptLst)))<br /> )<br />

1. (defun foo ( lst )
   
2.     (mapcar '(lambda ( x ) (apply 'mapcar (cons x lst))) '(min max))
   
3. )
   

(defun foo ( lst )<br />     (mapcar '(lambda ( x ) (apply 'mapcar (cons x lst))) '(min max))<br /> )<br />

lisperado

1. (defun baz (ptLst) (mapcar ''((f)(apply 'mapcar (cons f ptLst)))'(min max)) )

(defun baz (ptLst) (mapcar ''((f)(apply 'mapcar (cons f ptLst)))'(min max)) )

kqqt6236

学习一下。