Đến nội dung


Hình ảnh
5 stars - based on 24598 reviews
- - - - -

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


  • Please log in to reply
4 replies to this topic

#1 ThanhDattdk

ThanhDattdk

    biết zoom

  • Members
  • Pip
  • 17 Bài viết
Điểm đánh giá: -1 (bình thường)

Đã gửi 11 April 2017 - 04:42 PM

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.


  • 0

Hãy Quan Tâm Nhiều Hơn Đến Người Khác <<


#2 Nguyen Hoanh

Nguyen Hoanh

    biết lệnh adcenter

  • Moderator
  • PipPipPipPipPipPipPip
  • 4145 Bài viết
Điểm đánh giá: 4514 (đỉnh cao)

Đã gửi 11 April 2017 - 09:19 PM

Bạn dùng:
(setq ssg
(vl-remove-if '(lambda(x) (member x ssg1)) ssg)
)
  • 0

#3 ThanhDattdk

ThanhDattdk

    biết zoom

  • Members
  • Pip
  • 17 Bài viết
Điểm đánh giá: -1 (bình thường)

Đã gửi 12 April 2017 - 08:07 AM

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


  • 0

Hãy Quan Tâm Nhiều Hơn Đến Người Khác <<


#4 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 5515 Bài viết
Điểm đánh giá: 2658 (tuyệt vời)

Đã gửi 12 April 2017 - 08:25 AM

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

  • 0

* Chỉ nên yêu cầu Lisp khi bạn làm việc đó mất cả ngày nhưng họ chỉ viết 1 giờ. Đừng nêu yêu cầu Lisp khi bạn chỉ làm 1 giờ nhưng bắt họ phải mất cả ngày.

* Nhờ viết lisp cũng như đi khám bệnh. Chỉ gởi căn cước và than sắp chết thì không bác sỹ nào cứu sống được.


#5 ThanhDattdk

ThanhDattdk

    biết zoom

  • Members
  • Pip
  • 17 Bài viết
Điểm đánh giá: -1 (bình thường)

Đã gửi 12 April 2017 - 08:43 AM

(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


  • 0

Hãy Quan Tâm Nhiều Hơn Đến Người Khác <<