WOLFRAM

Wolfram言語 ＆ システムドキュメントセンター

DeleteAdjacentDuplicates[list]

list 中に同一要素が連続して出現する場合に重複しているものをすべて削除する．

DeleteAdjacentDuplicates[list,test]

test を連続する要素ペアに適用して両者を同一とみなすかどうかを決定する．

詳細
Details and Options Details and Options
例題  
例  
スコープ  
特性と関係  
関連項目
関連するガイド
履歴
引用書式

DeleteAdjacentDuplicates

DeleteAdjacentDuplicates[list]

list 中に同一要素が連続して出現する場合に重複しているものをすべて削除する．

DeleteAdjacentDuplicates[list,test]

test を連続する要素ペアに適用して両者を同一とみなすかどうかを決定する．

詳細

例題

すべて開く すべて閉じる

例  (3)

隣接する重複要素を削除する：

Wolfram Language code: DeleteAdjacentDuplicates[{3, 2, 2, 2, 3, 3, 1}]

Equal下で一致する隣接要素を削除する：

Wolfram Language code: DeleteAdjacentDuplicates[{3, 2., 2, 2`20, 3 / 2, 1.5, 1}, Equal]

値が連想中の直前のものと重複する要素を削除する：

Wolfram Language code: DeleteAdjacentDuplicates[<|a -> 1, b -> 1, c -> 2, d -> 2, e -> 1|>]

スコープ  (2)

前の要素よりも大きくない限り要素を削除する：

Wolfram Language code: DeleteAdjacentDuplicates[{1, 3, 5, 4, 3, 4, 1, 9, 9, 7, 8}, Greater]

DeleteAdjacentDuplicates[list]の list は任意の非原子式でもよい：

Wolfram Language code: DeleteAdjacentDuplicates[f[x, x, y, y, y, x, x, y, z]]

特性と関係  (2)

DeleteAdjacentDuplicatesはSplitから各項目の最初のものを取り出すのに似ている：

Wolfram Language code: list = RandomInteger[2, 20]
Wolfram Language code: Split[list][[All, 1]]
Wolfram Language code: DeleteAdjacentDuplicates[list]

合計が同じサブリストを削除する：

Wolfram Language code: list = {{1, 2}, {0, 3}, {1, 1}, {2, 0}, {2, 1}}
Wolfram Language code: DeleteAdjacentDuplicates[list, Total[#1] == Total[#2]&]

SplitByを使っても同等の操作が実行できる：

Wolfram Language code: SplitBy[list, Total][[All, 1]]
Wolfram Research (2022), DeleteAdjacentDuplicates, Wolfram言語関数， https://reference.wolfram.com/language/ref/DeleteAdjacentDuplicates.html.

テキスト

Wolfram Research (2022), DeleteAdjacentDuplicates, Wolfram言語関数， https://reference.wolfram.com/language/ref/DeleteAdjacentDuplicates.html.

CMS

Wolfram Language. 2022. "DeleteAdjacentDuplicates." Wolfram Language & System Documentation Center. Wolfram Research. https://reference.wolfram.com/language/ref/DeleteAdjacentDuplicates.html.

APA

Wolfram Language. (2022). DeleteAdjacentDuplicates. Wolfram Language & System Documentation Center. Retrieved from https://reference.wolfram.com/language/ref/DeleteAdjacentDuplicates.html

BibTeX

@misc{reference.wolfram_2026_deleteadjacentduplicates, author="Wolfram Research", title="{DeleteAdjacentDuplicates}", year="2022", howpublished="\url{https://reference.wolfram.com/language/ref/DeleteAdjacentDuplicates.html}", note=[Accessed: 07-September-2026]}

BibLaTeX

@online{reference.wolfram_2026_deleteadjacentduplicates, organization={Wolfram Research}, title={DeleteAdjacentDuplicates}, year={2022}, url={https://reference.wolfram.com/language/ref/DeleteAdjacentDuplicates.html}, note=[Accessed: 07-September-2026]}