Code Xóa Các Phần Tử Trùng Nhau Trong 2 Tập Đối Tượng

[ThanhDattdk 3]

Xin chào các bác. Em muốn hỏi về việc xóa các phần tử của Tập đối tượng con mà có trong Tập đối tượng mẹ

VD: Em có tập đt ssg1 gồm ((5 10) (15 20)) và tập đt ssg gồm ((5 10) (15 20) (25 30) (35 40))

Em muốn tạo 1 tập mới là ssg mà xóa các phần tử của tập ssg1 trong tập ssg: kết quả trả về ssg ((25 30) (35 40))

Mong các bác giúp em với.

[Nguyen Hoanh 4.663]

Bạn dùng:

(setq ssg

(vl-remove-if '(lambda(x) (member x ssg1)) ssg)

)

[ThanhDattdk 3]

Bạn dùng:

(setq ssg

(vl-remove-if '(lambda(x) (member x ssg1)) ssg)

)

em cảm ơn bác nhiều. Em mới kiểm tra lại thì cái tập của em nó như vầy

ssg1 ((5 10 0) (10 15 0))

ssg  ((5 10) (10 15) (20 25) (30 35))

em vẫn muốn trả về ssg ((20 25) (30 35)) thì có cách nào khử z trong ssg1 (và số pt của tập ssg1 không biết trước nhưng ssg1 là tập con của ssg)

mình nên dùng lệnh nào vậy bác

[Doan Van Ha 3.191]

(setq ssg (vl-remove-if '(lambda(x) (member x (mapcar '(lambda(y) (list (car y) (cadr y))) ssg1))) ssg))

[ThanhDattdk 3]

(setq ssg (vl-remove-if '(lambda(x) (member x (mapcar '(lambda(y) (list (car y) (cadr y))) ssg1))) ssg))

em cảm ơn bác nhiều