[编程交流] 合并两个列表

‘(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))

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

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

(apply 'mapcar (cons 'cons (list lst1 lst2)))

(mapcar 'cons lst1 lst2)

(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
   )
)