语句更换表达

菜卷鱼

1. (setq a '(1 2 3 4 ))
   
2. (setq b '(5 6 7 8 ))
   

(setq a '(1 2 3 4 ))<br /> (setq b '(5 6 7 8 ))<br />

要得到结果 ((1 5)(4 8))
实际上a 是我取得点集合的全部X坐标，b是我取得点集合的全部y坐标，
我想取对角点。
我目前用的方式以下的代码，句子写出来感觉难看；

1. (list(list (apply 'min a)(apply 'min b))(list (apply 'max a)(apply 'max b)))
   

(list(list (apply 'min a)(apply 'min b))(list (apply 'max a)(apply 'max b)))<br />

测试用以下的代码也能达到一样的效果，但是感觉有点重复繁琐；

1. (list  (mapcar '(lambda(x) (apply 'min x)) (list a b))
   
2.        (mapcar '(lambda(x) (apply 'max x)) (list a b))
   
3. )
   

(list  (mapcar '(lambda(x) (apply 'min x)) (list a b))<br />        (mapcar '(lambda(x) (apply 'max x)) (list a b))<br /> )<br />

还有别的更简单更快的表达方式吗？最好是用匿名函数的。

Andyhon

另请参考 ACET 函数
acet-ent-geomextents
acet-geom-ss-extents

xyp1964

2. (setq c (mapcar '(lambda (x y) (list x y)) a b))
   
3. (setq d (list (car c) (last c)))

(setq c (mapcar '(lambda (x y) (list x y)) a b))<br /> (setq d (list (car c) (last c)))

vectra

我觉得

(list(list (apply 'min a)(apply 'min b))(list (apply 'max a)(apply 'max b)))

这样的代码，不仅不难看，反而是最简单易懂的。。

wzg356

还要追求观感质量呀？

lijiao

(setq ab (mapcar 'vl-sort (list a b) '(< <)))
(list (mapcar 'car ab) (mapcar 'cadr ab))
或
(mapcar ''((x) (mapcar x ab)) '(car cadr))

masterlong

楼上的这个双单引号用得不错

菜卷鱼

1. (mapcar '(lambda(x) (list(apply 'min x)(apply 'max x))) (list a b))

(mapcar '(lambda(x) (list(apply 'min x)(apply 'max x))) (list a b))