Topic: Find similar elements between asincronic lists

[robertocuba]

Hello:

I have the following situation:

list_data_contact ("axe" "bf" 120 140 27 56 "sk1" "at" 36 65 78 90)
list_data_points ("tap" "dm" 134 432 "env" "zt" 32 11 "axe" "bf" 45 65 "bev" "tx" 32 21 "sk1" "at" 56 32)

The routine must be return from list_data_points:

List ("axe" "bf" 45 65 "sk1" "at" 56 32)

The following code not work totally:

  (setq contad-1 0)
  (repeat (length list_data_contact)
    (setq continterno 0)
    (setq data_contact (nth contad-1 list_data_contact))
    (setq contact_part_name_a (nth continterno data_contact))
    (setq feature_contact_name_a (nth (+ continterno 1) data_contact))
    (setq contact_part_name_b (nth (+ continterno 6) data_contact))
    (setq feature_contact_name_b (nth (+ continterno 7) data_contact))
    (setq contad-2 0)
    (repeat (length list_data_points)
      (if (and
      (= contact_part_name_a (nth contad-2 list_data_points))
      (= (nth (+ continterno 1) data_contact) (nth (+ contad-2 1) list_data_points))
     )
   (progn
     (princ contact_part_name_a)
     (princ (nth (+ continterno 1) data_contact))
     (princ "-")
     (princ (nth contad-2 list_data_points))
     (princ (nth (+ contad-2 1) list_data_points))
     (setq first_point (nth (+ contad-2 2) list_data_points))
     (setq contad3 0)
     (repeat (length list_data_points)
       (if (and
                  (= contact_part_name_b (nth contad3 list_data_points))
             (= (nth (+ continterno 1) data_contact) (nth (+ contad3 1) list_data_points))
      )
           (princ "contact")
       )
       (setq contad3 (1+ contad3))
     )
        )
      )
      (setq contad-2 (+ contad-2 3))
    )
    (setq contad-1 (1+ contad-1))
  )

Thanks,

[CAB]

How can you use vl-remove-if-not?

[MP]

How many marks is this question worth?

[uncoolperson]

learning anything cool in that class?

[kdub_nz]

Robert

Can you describe the problem/task without relying on showing the solution result. ( though he solution is handy for checking against )

I believe you will become a better problem solver if you can do this .. as it requires a complete unambiguous description of the problem ... which is (more than ) half of finding a solution.

/// kdub