社区 › Auto Lisp › 合并两个列表

Kowal 发表于 2022-7-5 22:20:50

合并两个列表

你好
如何将两个列表合并为一个？
第一个列表是一个条目，生成的列表等于元素的数量。
 
第一个列表：
‘(10.3403 10.3417 10.3431 …)
 
第二个列表
‘((10.3406333333333 22.2839283048)
(10.3407111111111 22.2900230856)
(10.3407888888889 22.3601283048)
(10.3409444444444 22.3936563048)
(10.3408666666667 22.3997513904)
(10.3410222222222 22.457664)
(10.3411 22.457664)
(10.3413333333333 22.4149923048)
(10.3412555555556 22.424136)
(10.3411777777778 22.4515692192)
(10.3414888888889 22.2991692192)
(10.3415666666667 22.3205049144)
(10.3416444444444 22.3235513904)
(10.3414111111111 22.3448873904)
(10.3418 22.3144076952)
(10.3417222222222 22.3205049144)
(10.3418777777778 22.4058486096)
(10.3421888888889 22.4088950856)
(10.3421111111111 22.4485206096)
(10.3419555555556 22.4515692192)
(10.3420333333333 22.479)
(10.3423444444444 22.3418409144)
(10.3422666666667 22.3784153904)
(10.3424222222222 22.3997513904)
(10.3427333333333 22.1711513904)
(10.3426555555556 22.2138230856)
(10.3425777777778 22.305264)
(10.3425 22.3601283048)
(10.3430444444444 22.0096076952))

 
结果列表：
‘((10.3403 10.3406333333333 22.2839283048)
(10.3417 10.3416444444444 22.3235513904)
(10.3431 10.3430444444444 22.0096076952))

 
算法：
从第一个列表中选择一个项目：
(mapcar '(lambda (a) (…) lst1))
减去每个元素子列表的值：
(mapcar '(lambda (e) (abs (- a (car e)))) lst2)
我们选择最小值（间隔）：
(apply 'min (mapcar '(lambda (e) (- a (car e))) lst2))
这个怎么说？
对不起我的英语。

marko_ribar 发表于 2022-7-5 22:40:46

(defun mininterval ( lst1 lst2 )
(car (vl-sort (mapcar '(lambda ( a b ) (abs (- a (car b)))) lst1 lst2) '(lambda ( a b ) (< a b))))
)

hanhphuc 发表于 2022-7-5 22:47:27

尝试道格·威尔逊大师的著名方法

(vl-sort
(apply 'mapcar (cons 'cons (list lst1 lst2))); just did a tweak
''(( a b ) (< (car a) (car b))))

Lee Mac 发表于 2022-7-5 22:58:05

 
hanhphuc，注意：
(apply 'mapcar (cons 'cons (list lst1 lst2)))与：
(mapcar 'cons lst1 lst2)

Lee Mac 发表于 2022-7-5 23:02:39

我可能错了，但我明白OP在寻找这样的东西：
(defun f ( l1 l2 )
   (setq l1 (vl-sort l1 '<)
         l2 (vl-sort l2 '(lambda ( a b ) (< (car a) (car b))))
   )
   (mapcar
      '(lambda ( a )
         (cons a
               (cond
                   (   (vl-some
                        '(lambda ( b c )
                               (if (< a (car c))
                                 (if (< (abs (- a (car c))) (abs (- a (car b)))) c b)
                               )
                           )
                           l2 (cdr l2)
                     )
                   )
                   (   (last l2))
               )
         )
       )
       l1
   )
)
你也激励了我

hanhphuc 发表于 2022-7-5 23:15:30

 
谢谢hanhphuc
 
我的观点是，在这种情况下不需要使用list/apply，因为本例中list函数的唯一目的是启用apply函数。
 
李

Lee Mac 发表于 2022-7-5 23:26:11

查看完整版本: 合并两个列表