Topic: If possible help Merge 2 lists

[HOSNEYALAA]

Hello all
If possible, to help merge the two lists

If I have a first list
((43.0231 16.7861 0.0) (37.0009 16.8844 0.0))
and
I have a second list
("5.20" "4")

I want the result this way
(((43.0231 16.7861 0.0)("5.20"))  ((37.0009 16.8844 0.0)("4")))

Or as such
((43.0231 16.7861 5.2) (37.0009 16.8844 4))

Thanks to all

[HOSNEYALAA]

This is the lisp that I work on

(defun c:DDDD (/ AP AT DD END1 END2 H HH HTT I II J LEN NP NT XL1 XL2 YL1 YL2 ZND2)
(SETQ TP(ssget '((0 . "Text,Mtext"))))
(command "_.select" TP "")
(sssetfirst nil TP)
(SETQ AP(ssget "_:P" '((0 . "text,mtext")(62 . 1))))
(setq NP (sslength AP)) ; No of POINT
(command "_.select" TP "")
(sssetfirst nil TP)
(SETQ AT(ssget "_:P" '((0 . "text,mtext")(62 . 3))))
(setq NT (sslength AT)) ; No of TEXT
 

(setq I 0)

(while (< I NT )

        (setq END2 (cdr (assoc 10 (entget (ssname AT I ))))) ; Ge_point_tTEXT
        (setq ZND2 (ATOF(cdr (assoc 1 (entget (ssname AT I )))))) ; GetTEXT
        (setq h (cdr (assoc 40 (ENTGET (ssname AT I )))));HIGHT TEXT

        (setq a1
        (mapcar '(lambda(x) (cdr(assoc 10 x)))
                     (mapcar 'entget(vl-remove-if 'listp
                      (mapcar 'cadr(ssnamex AP))))))

        (setq a2
        (mapcar '(lambda(x) (cdr(assoc 1 x)))
                     (mapcar 'entget(vl-remove-if 'listp
                      (mapcar 'cadr(ssnamex AP))))))
 
)

[kpblc]

Code - Auto/Visual Lisp: [Select]

1. (setq a '((43.0231 16.7861 0.0) (37.0009 16.8844 0.0))
2.       b '("5.20" "4")
3.       ) ;_ end of setq
4. (mapcar '(lambda (x y) (list (car x) (cadr x) (atof y))) a b)

[HOSNEYALAA]

Thank you so much kpblc

Great solution and beautiful
Thanks for quick reply