Acet-list-remove-adjacent-dups

提供:GizmoLabs - だいたい CAD LISP なサイト
構文
(acet-list-remove-adjacent-dups datalist )


機能
datalist から連続した同じ値を取り除いたリストを返す。


引数
  • datalist … リスト


戻り値
連続した重複が取り除かれた datalist のリスト。lst が NIL の場合は NIL を返す。


サンプル
(acet-list-remove-adjacent-dups  '(1 2 3 4 3 2 4 5) )
(1 2 3 4 3 2 4 5) ; 連続した値がないので変わらない

(acet-list-remove-adjacent-dups  '(1 2 3 3 4 3 2 4 5) )
(1 2 3 4 3 2 4 5) ; 4番目の 3 が除去される

(gz:deduprecate  '(1 2 3 3 4 3 2 4 5))
(1 3 2 4 5) ; リスト内の重複値が除去される(前が削られる)

(acet-list-remove-duplicates  '(1 2 3 4 3 2 4 5) 0)
(1 2 3 4 5) ; リスト内の重複値が除去される(後ろが削られる)


関連事項