WOLFRAM

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

CountDistinct[list]

list に現れる他とは異なる要素数を与える．

CountDistinct[list,test]

test を要素のペアに適用し，両者が等しいかどうかを判断する．

詳細
Details and Options Details and Options
例題  
例  
スコープ  
アプリケーション  
特性と関係  
考えられる問題  
関連項目
関連するガイド
履歴
引用書式

CountDistinct

CountDistinct[list]

list に現れる他とは異なる要素数を与える．

CountDistinct[list,test]

test を要素のペアに適用し，両者が等しいかどうかを判断する．

詳細

例題

すべて開く すべて閉じる

例  (2)

リスト中の他とは異なる要素数を数える：

Wolfram Language code: CountDistinct[{a, b, b, c, a}]

連想中の他とは異なる値を数える：

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

スコープ  (2)

リストの頭部がListである必要はない：

Wolfram Language code: CountDistinct[Hold[1 + 2, 4 - 1, 1 + 2, 2 + 1]]

差が0.01以下の数を等しいものとして扱う：

Wolfram Language code: CountDistinct[{3.0, 3.1, 3.11, 3.5, 3.51}, Abs[#1 - #2] <= 0.01&]

アプリケーション  (1)

文字列に出現する，他とは異なる文字数を数える：

Wolfram Language code: CountDistinct[Characters["It was the best of times, it was the worst of times"]]

特性と関係  (3)

CountDistinct[list]はCountDistinct[list,SameQ]に等しい：

Wolfram Language code: list = Join[RandomInteger[100, {50}], RandomReal[1, {50}], {x, y, z, π, E}];
Wolfram Language code: CountDistinct[list] == CountDistinct[list, SameQ]

CountDistinct[list]はLength[DeleteDuplicates[list]]と等しい：

Wolfram Language code: list = RandomInteger[100, {33}];
Wolfram Language code: CountDistinct[list] == Length[DeleteDuplicates[list]]

CountDistinct[list,test]はLength[DeleteDuplicates[list,test]]に等しい：

Wolfram Language code: lastDigitSameQ[x_, y_] := Mod[x, 10] === Mod[y, 10]
Wolfram Language code: CountDistinct[list, lastDigitSameQ] == Length[DeleteDuplicates[list, lastDigitSameQ]]

CountDistinct[list,test]は test を2つの要素に適用して両者が同等かどうかを判定する：

Wolfram Language code: CountDistinct[{{a, x}, {a, y}, {b, z}}, First[#] == First[#2]&]

CountDistinctBy[list,f]は，変換 f を各要素に適用してその結果を比較する：

Wolfram Language code: CountDistinctBy[{{a, x}, {a, y}, {b, z}}, First]

考えられる問題  (1)

比較関数がTrueもFalseも返さないとき，要素は異なるとみなされる：

Wolfram Language code: CountDistinct[{4, 4, 4}, f]

常に要素を異なるものとして報告する関数と比較する：

Wolfram Language code: CountDistinct[{4, 4, 4}, False&]
Wolfram Research (2014), CountDistinct, Wolfram言語関数， https://reference.wolfram.com/language/ref/CountDistinct.html （2024年に更新）.

テキスト

Wolfram Research (2014), CountDistinct, Wolfram言語関数， https://reference.wolfram.com/language/ref/CountDistinct.html （2024年に更新）.

CMS

Wolfram Language. 2014. "CountDistinct." Wolfram Language & System Documentation Center. Wolfram Research. Last Modified 2024. https://reference.wolfram.com/language/ref/CountDistinct.html.

APA

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

BibTeX

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

BibLaTeX

@online{reference.wolfram_2026_countdistinct, organization={Wolfram Research}, title={CountDistinct}, year={2024}, url={https://reference.wolfram.com/language/ref/CountDistinct.html}, note=[Accessed: 15-September-2026]}