Topic: Help List

[velasquez]

I need help for a problem with lists:

I have:
list1: ->

Code: [Select]

(setq list1 (list '("1" "testA") '("2" "testB") '("3" "testC")))and
list2: ->

Code: [Select]

(setq list2 (list '("testA" "nononno") '("testB" "vcvcvcv") '("testC" "nmnmnmn") '("nonono" "xccxcxc") '("xxxxxx" "jhjhjhjj")))I need to get list3 ->

Code: [Select]

'(("1" "teste
A" "aaaaaa") ("2" "testB" "vcvcvcv") ("3" "testC" "nmnmnmn") ("" "nonono" "xccxcxc") ("" "xxxxxx" "jhjhjhjj"))
Can anyone help me?

Thanks

[Lee Mac]

Quick one:

Code - Auto/Visual Lisp: [Select]

1. (defun foo ( l1 l2 )
2.     (setq l1 (mapcar 'reverse l1))
3.     (mapcar '(lambda ( x / a ) (if (setq a (assoc (car x) l1)) (reverse (cons (cadr x) a)) (cons "" x))) l2)
4. )

Code - Auto/Visual Lisp: [Select]

1. _$ (foo list1 list2)
2. (("1" "testA" "nononno") ("2" "testB" "vcvcvcv") ("3" "testC" "nmnmnmn") ("" "nonono" "xccxcxc") ("" "xxxxxx" "jhjhjhjj"))

Actually, this is slightly shorter:

Code - Auto/Visual Lisp: [Select]

1. (defun foo ( l1 l2 )
2.     (setq l1 (mapcar 'reverse l1))
3.     (mapcar '(lambda ( x / a ) (if (setq a (assoc (car x) l1)) (cons (cadr a) x) (cons "" x))) l2)
4. )

[velasquez]

Thank you Lee
Your help was very important again.

[Lee Mac]

You're welcome velasquez 

[Lee Mac]

Another, recursive variation (slow):

Code - Auto/Visual Lisp: [Select]

1. (defun foo ( a b )
2.     (if b (cons (bar (car b) a) (foo a (cdr b))))
3. )
4. (defun bar ( x l )
5.     (cond
6.         (   (null l) (cons "" x))
7.         (   (= (cadar l) (car x)) (cons (caar l) x))
8.         (   (bar x (cdr l)))
9.     )
10. )

Code - Auto/Visual Lisp: [Select]

1. _$ (foo list1 list2)
2. (("1" "testA" "nononno") ("2" "testB" "vcvcvcv") ("3" "testC" "nmnmnmn") ("" "nonono" "xccxcxc") ("" "xxxxxx" "jhjhjhjj"))

[David Bethel]

or a little simpler way would:

Code - Auto/Visual Lisp: [Select]

1. (setq list3 nil)
2. (foreach a list1
3.   (setq list3 (cons (list (car a)
4.                           (cadr a)
5.                           (cadr (assoc (cadr a) list2))) list3)))
6. (setq list3 (reverse list3))
7.  

No error checking though which I would recommend  -David

[Lee Mac]

or a little simpler way would:

Code - Auto/Visual Lisp: [Select]

1. (setq list3 nil)
2. (foreach a list1
3.   (setq list3 (cons (list (car a)
4.                           (cadr a)
5.                           (cadr (assoc (cadr a) list2))) list3)))
6. (setq list3 (reverse list3))
7.  

What about these items David:

Code - Auto/Visual Lisp: [Select]

1. ("" "nonono" "xccxcxc") ("" "xxxxxx" "jhjhjhjj")

[David Bethel]

What about these items David:

Code - Auto/Visual Lisp: [Select]

1. ("" "nonono" "xccxcxc") ("" "xxxxxx" "jhjhjhjj")

Like I said  it needs error checking.  I don't believe there would be any correct answer to your scenario.  My $0.02  -David

[Lee Mac]

What about these items David:

Code - Auto/Visual Lisp: [Select]

1. ("" "nonono" "xccxcxc") ("" "xxxxxx" "jhjhjhjj")

Like I said  it needs error checking.  I don't believe there would be any correct answer to your scenario.  My $0.02  -David

I'm just going by the result requested by the OP.

[irneb]

Just a question: Are the 2 lists always in the same order? If so a slightly faster version:

Code - Auto/Visual Lisp: [Select]

1. (defun combine (L1 L2 / L3)
2.   (setq L3 L2)
3.   (append (mapcar '(lambda (a b) (setq L3 (cdr L3)) (cons (car a) b))) L1 L2)
4.           (mapcar '(lambda (c) (cons "" c)) L3)))

Else you'll need the assoc to extract the correct item from either L1 or L2 (as the others' are doing).

BTW, is the 2nd list always longer (or same length) as the first or could the 1st list be longer? If so how should the result then look?

[velasquez]

You're welcome velasquez 

Hi Lee,
I modified your function foo and got the list3 as follows:

Code: [Select]

(defun LM:foo+ (l1 l2)
  (setq l1 (mapcar 'reverse l1))
  (mapcar '(lambda (x / a)
             (if (setq a (assoc (car x) l1))
               (subst (cadr a) (car x) x)
               (subst "" (car x) x)
             ) ;_ fim de if
           ) ;_ fim de lambda
          l2
  ) ;_ fim de mapcar
) ;_ fim de defun


Code: [Select]

(setq list1 '(("1" "SG_1_TBLUTOP_D90_L2000") ("2" "SG_3_CP90FB-BLUTOP10PECB_D90") ("3" "SG_1_CC90B-BLUTOPPECB_D90")))
(setq list2 '(("SG_1_CC90B-BLUTOPPECB_D90" "CC90B-BLUTOPPECB;Curva 90° com bolsas JE - Sistema Blutop;90;0;0;0") ("SG_3_CP90FB-BLUTOP10PECB_D90" "CP90FB-BLUTOP10/16PECB;Curva 90° com pé, bolsa e flange JE - Sistema Blutop;80;80;10;0") ("SG_1_TBLUTOP_D90_L2000" "TBLUTOP;Tubo ponta e bolsa JE - Sistema Blutop;90;0;0;2000") ("SG_1_KB-BLUTOPPECB_D90" "KB-BLUTOPPECB;Cap JE - Sistema Blutop;90;0;0;0") ("SG_1_KB-BLUTOPTIPECB_D160" "KB-BLUTOPTIPECB;Cap JTI - Sistema Blutop;160;0;0;0")))
 I got the list3 with this order:

Code: [Select]

_$ (setq list3 (LM:FOO+ list1 list2))
(("3" "CC90B-BLUTOPPECB;Curva 90° com bolsas JE - Sistema Blutop;90;0;0;0") ("2" "CP90FB-BLUTOP10/16PECB;Curva 90° com pé, bolsa e flange JE - Sistema Blutop;80;80;10;0") ("1" "TBLUTOP;Tubo ponta e bolsa JE - Sistema Blutop;90;0;0;2000") ("" "KB-BLUTOPPECB;Cap JE - Sistema Blutop;90;0;0;0") ("" "KB-BLUTOPTIPECB;Cap JTI - Sistema Blutop;160;0;0;0"))
_$
You can help me sort the list as list4:?

Code: [Select]

'(("1" "TBLUTOP;Tubo ponta e bolsa JE - Sistema Blutop;90;0;0;2000")
  ("2" "CP90FB-BLUTOP10/16PECB;Curva 90° com pé, bolsa e flange JE - Sistema Blutop;80;80;10;0")
  ("3" "CC90B-BLUTOPPECB;Curva 90° com bolsas JE - Sistema Blutop;90;0;0;0")
  ("" "KB-BLUTOPPECB;Cap JE - Sistema Blutop;90;0;0;0")
  ("" "KB-BLUTOPTIPECB;Cap JTI - Sistema Blutop;160;0;0;0"))

Thanks for the time and the help of all.

[Lee Mac]

Quick one:

Code - Auto/Visual Lisp: [Select]

1. (setq l
2.    '(
3.         ("3" "CC90B-BLUTOPPECB;Curva 90° com bolsas JE - Sistema Blutop;90;0;0;0")
4.         ("2" "CP90FB-BLUTOP10/16PECB;Curva 90° com pé, bolsa e flange JE - Sistema Blutop;80;80;10;0")
5.         ("1" "TBLUTOP;Tubo ponta e bolsa JE - Sistema Blutop;90;0;0;2000")
6.         ("" "KB-BLUTOPPECB;Cap JE - Sistema Blutop;90;0;0;0")
7.         ("" "KB-BLUTOPTIPECB;Cap JTI - Sistema Blutop;160;0;0;0")
8.     )
9. )
10.  
11. (vl-sort l '(lambda ( a b ) (if (and (/= "" (car a)) (/= "" (car b))) (< (atoi (car a)) (atoi (car b))))))

[velasquez]

Quick one:

Code - Auto/Visual Lisp: [Select]

1. (setq l
2.    '(
3.         ("3" "CC90B-BLUTOPPECB;Curva 90° com bolsas JE - Sistema Blutop;90;0;0;0")
4.         ("2" "CP90FB-BLUTOP10/16PECB;Curva 90° com pé, bolsa e flange JE - Sistema Blutop;80;80;10;0")
5.         ("1" "TBLUTOP;Tubo ponta e bolsa JE - Sistema Blutop;90;0;0;2000")
6.         ("" "KB-BLUTOPPECB;Cap JE - Sistema Blutop;90;0;0;0")
7.         ("" "KB-BLUTOPTIPECB;Cap JTI - Sistema Blutop;160;0;0;0")
8.     )
9. )
10.  
11. (vl-sort l '(lambda ( a b ) (if (and (/= "" (car a)) (/= "" (car b))) (< (atoi (car a)) (atoi (car b))))))

Perfect Lee.
Thanks

[velasquez]

I'm trying to better understand the mapcar and lambda functions.
I got a result with foreach but I can not say with mapcar.

Code: [Select]

;;;MyList -> (<Entity name: 7ffffc08530> <Entity name: 7ffffc05960> <Entity name: 7ffffc05440> ...)
(foreach JoyItem MyList
  (if (setq JoyTemp (dxf 1000 (JoyGetXdata (vlax-ename->vla-object JoyItem) "DuctilCAD_2D")))
    (setq JoyData (cons (list (dxf 2 (entget JoyItem)) JoyTemp) JoyData))
  ) ;_ fim de if
) ;_ fim de foreach

;;;returned list -> '(("SG_1_TNATJGS_D80_#D80" "TNATJGS;Tê com bolsas e junta elástica JGS - Linha Natural;80;80;0;0")
  ("SG_1_KB-BLUTOPTIPECB_D160" "KB-BLUTOPTIPECB;Cap JTI - Sistema Blutop;160;0;0;0")
  ("SG_1_TNATJGS_D80_#D80" "TNATJGS;Tê com bolsas e junta elástica JGS - Linha Natural;80;80;0;0")
  ("SG_1_KB-BLUTOPTIPECB_D160" "KB-BLUTOPTIPECB;Cap JTI - Sistema Blutop;160;0;0;0")
)
My question in this case is better to work with foreach?
I need to learn more about mapcar.

Thanks

[irneb]

I'm trying to better understand the mapcar and lambda functions.

Perhaps these threads can help:

• http://www.theswamp.org/index.php?topic=41830.5
• http://www.cadtutor.net/forum/showthread.php?80672-lambda-function-mapcar-apply-foreach-explained