[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 メーリングリストの案内