Đến nội dung


Hình ảnh
- - - - -

Hỏi Ngu


  • Please log in to reply
5 replies to this topic

#1 ngocutcbg

ngocutcbg

    biết zoom

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

Đã gửi 19 October 2015 - 02:01 PM

Các bác cho em hỏi:

(setq a '(1 3 6 3 8 6)) ;em có một danh sách như vậy

giờ em muốn các số giống nhau trong danh sách a gộp lại thành danh sách a mới '(1 3 6 8) thì làm thế nào a.


  • -1

#2 quocmanh04tt

quocmanh04tt

    biết lệnh imageclip

  • Members
  • PipPipPipPipPipPipPip
  • 671 Bài viết
Điểm đánh giá: 313 (khá)

Đã gửi 19 October 2015 - 02:12 PM

Khó đăng bài quá ...!

Bạn tham khảo hàm này:

(defun remDupl  (lst)
   (if (car lst)
    (cons (car lst) (remDupl (vl-remove (car lst) (cdr lst))))))​


  • 1

#3 phamthanhbinh

phamthanhbinh

    biết lệnh adcenter

  • Moderator
  • PipPipPipPipPipPipPip
  • 6009 Bài viết
Điểm đánh giá: 3113 (tuyệt vời)

Đã gửi 19 October 2015 - 02:19 PM

Các bác cho em hỏi:

(setq a '(1 3 6 3 8 6)) ;em có một danh sách như vậy

giờ em muốn các số giống nhau trong danh sách a gộp lại thành danh sách a mới '(1 3 6 8) thì làm thế nào a.

Hề hề hề,

Dùng (acet-list-remove-dublicates a nil)


  • 1
Chúc các quý Anh trên diễn đàn luôn khỏe, đẻ thêm được nhiều thứ để mót.

#4 pphung183

pphung183

    biết dimstyle

  • Members
  • PipPipPipPipPip
  • 384 Bài viết
Điểm đánh giá: 425 (tốt)

Đã gửi 19 October 2015 - 03:08 PM

Hề hề hề,

Dùng (acet-list-remove-dublicates a nil)

Hề hề hề, :D  phải  là như này Dùng (acet-list-remove-duplicates a nil) mới phải hè

Cũng có thể viết không phải dạng đệ qui :) :

(defun list-remove-duplicates (lst / lst1)
(foreach x lst (if (not (member x lst1)) (setq lst1 (append lst1 (list x))))) lst1)


  • 1

#5 phamthanhbinh

phamthanhbinh

    biết lệnh adcenter

  • Moderator
  • PipPipPipPipPipPipPip
  • 6009 Bài viết
Điểm đánh giá: 3113 (tuyệt vời)

Đã gửi 19 October 2015 - 03:13 PM

Hề hề hề, :D  phải  là như này Dùng (acet-list-remove-duplicates a nil) mới phải hè

Cũng có thể viết không phải dạng đệ qui :) :

(defun list-remove-duplicates (lst / lst1)
(foreach x lst (if (not (member x lst1)) (setq lst1 (append lst1 (list x))))) lst1)

Hề hề hề,

Cám ơn bác đã sửa lỗi chính tả hộ mình.


  • 0
Chúc các quý Anh trên diễn đàn luôn khỏe, đẻ thêm được nhiều thứ để mót.

#6 ngocutcbg

ngocutcbg

    biết zoom

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

Đã gửi 19 October 2015 - 03:19 PM

 Cảm ơn các bác

để em thử cái xem sao  :D


  • 0