[Mew-dist 06063] Re: uniqfy

[Kazu Yamamoto ( 山本和彦 )]

From: Murata Takashi <Takashi.Murata at example.com>
Subject: [Mew-dist 06062] Re: uniqfy
Date: Thu, 20 Aug 1998 23:51:26 +0900

>   もうしつこいかも知れないですが… rplacd(setcdr) は cdr を返すのを
> 思い出しました。書き直しておきます。

さらにしつこいかもしれませんが、progn は不要ですね。

> (defun mew-uniq-list (lst)
>   (progn
>     (let ((tmp lst))
>       (while tmp (setq tmp (setcdr tmp (delete (car tmp) (cdr tmp))))))
>     lst))

こうかな。

(defun mew-uniq-list (lst)
  "Distractively uniqfy elements of LST."
  (let ((tmp lst))
    (while tmp (setq tmp (setcdr tmp (delete (car tmp) (cdr tmp))))))
  lst)

--かず＠ほとんど one liner