[Mew-dist 06056] Re: uniqfy

Kazu Yamamoto ( 山本和彦 ) kazu at example.com
1998年 8月 20日 (木) 22:19:34 JST


From: Murata Takashi <Takashi.Murata at example.com>
Subject: [Mew-dist 06055] Re: uniqfy
Date: Thu, 20 Aug 1998 22:01:53 +0900

>   以下のようにすれば思ったようには動くのですが、もう少し簡単に
> ならないかな…これなら関数にした方がいいかも。
> 
> (defmacro mew-uniq-list (lst)
>   (` (let ((tmp (, lst)))
>        (while tmp (rplacd tmp (delete (car tmp) (cdr tmp)))
>               (setq tmp (cdr tmp)))
>        (, lst))))

なるほど。

rplacd は Common Lisp 風味ですので、Elisp らしく setcdr に変更して採用
しました。

P.S.

itojun 曰く:「cons は malloc である」

--かず



Mew-dist メーリングリストの案内