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，以确定它们是否相等：

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 语言. 2014. "CountDistinct." Wolfram 语言与系统参考资料中心. Wolfram Research. 最新版本 2024. https://reference.wolfram.com/language/ref/CountDistinct.html.

APA

Wolfram 语言. (2014). CountDistinct. Wolfram 语言与系统参考资料中心. 追溯自 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]}