[Mew-dist 06067] Re: uniqfy

[Murata Takashi]

From: Kazu Yamamoto (山本和彦) <kazu at example.com>
Subject: [Mew-dist 06063] Re: uniqfy
Date: Fri, 21 Aug 1998 00:46:18 +0900

> (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

  しつこいついでに(^_^;、こう直せば one liner ですね。

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

┌───────────── 村田 隆 / Takashi.Murata at example.com ┐
└ 日本システム技術(株) 技術部  Tel:03-3503-8736  Fax:03-3580-7806 ┘