DigitCount
DigitCount[n,b,d]
在 b 进制表示的 n 中，数字 d 的个数.
DigitCount[n,b,d,len]
给出 n 的最后 len 位数字以 b 为基数表示时的 d 位数字.
DigitCount[n,b]
用来给出 n 的 b 进制表示中数字
，
，…，
，
的个数.
DigitCount[n]
用来给出 n 的 10 进制表示中数字
，
，…，
，
的个数.
更多信息
- 整数型数学函数，同时适合符号和数值操作.
- DigitCount[n,b,dlist,…] 会在列表 dlist 中的数字上自动逐个进行计算. »
- DigitCount[nlist,…] 逐个作用于列表 nlist 中的每一位. »
- DigitCount[n] 等价于 DigitCount[n,10,Mod[Range[10],10]]. »
- DigitCount[0,b,0] 的结果为 1. »
范例
打开所有单元 关闭所有单元基本范例 (3)
DigitCount[2147, 2, 1]DigitCount[2147, 2]IntegerDigits[2147, 2]DigitCount[100!]DiscretePlot[DigitCount[n, 2, 1], {n, 2 ^ 7 - 1}]范围 (2)
DigitCount[122000]DigitCount[122000, 10]DigitCount[122000, 10, 0]DigitCount[122000, 10, 0, 9]DigitCount[242442422, 3, {1, 2}]DigitCount[242442422, 3, {2, 1}]数出三进制表示法下最后 12 个数字中 1 和 2 的个数：
DigitCount[242442422, 3, {1, 2}, 12]应用 (2)
图埃-莫尔斯 (Thue–Morse) 序列的第 0 到 24 个元素：
Table[Mod[DigitCount[n - 1, 2, 1], 2], {n, 25}]与 ThueMorse 给出的答案进行比较：
% == Table[ThueMorse[n], {n, 0, 24}]在规则 90 的元胞自动机中，在 t 步骤的黑色单元的个数：(二项式系数绝对值为 2)：
Table[2 ^ DigitCount[t, 2, 1], {t, 0, 10}]Total /@ CellularAutomaton[90, {{1}, 0}, 10]属性和关系 (8)
DigitCount[n] 等价于 DigitCount[n,10,Mod[Range[10],10]]:
With[{n = RandomInteger[10^6]}, DigitCount[n] === DigitCount[n, 10, Mod[Range[10], 10]]]DigitCount[n,b,dlist] 在列表 dlist 中的数字上自动线程化：
DigitCount[111122555363, 10, {3, 1, 6, 1, 3}]DigitCount[nlist,…] 逐个作用于列表 nlist 中的每一位：
DigitCount[{123, 456, 789}]DigitCount[{123, 456, 789}, 5]对于 DigitCount[nlist,b,dlist,…]，其结果是一个由 Length[nlist] 个列表组成的列表，每个列表的长度为 Length[dlist]：
DigitCount[{123, 456, 789}, 5, {1, 3}]DigitCount[n,b,d] 实际上是 Count[IntegerDigits[n,b],d]：
DigitCount[242442422, 3, 0] == Count[IntegerDigits[242442422, 3], 0]DigitCount[n,b,d,len] 实际上是 Count[PadLeft[IntegerDigits[n,b],len],d]：
DigitCount[242442422, 3, 0, 20] == Count[PadLeft[IntegerDigits[242442422, 3], 20], 0]DigitCount[n,b] 等于 Values[Counts[IntegerDigits[n,b],Mod[Range[b],b]]：
DigitCount[12345, 6] == Values[Counts[IntegerDigits[12345, 6], Mod[Range[6], 6]]]由此推广，这也适用于右侧 b==10 的 DigitCount[n]：
DigitCount[12345] == Values[Counts[IntegerDigits[12345, 10], Mod[Range[10], 10]]]DigitCount[0,b,0] 给出 1：
Table[DigitCount[0, b, 0], {b, {2, 8, 10, 16}}]这与 IntegerDigits[0,b] 的行为一致：
Table[IntegerDigits[0, b], {b, {2, 8, 10, 16}}]DigitCount[n,b,{}] 给出 {}：
DigitCount[RandomInteger[10 ^ 6], RandomInteger[{2, 16}], {}]可能存在的问题 (2)
DigitCount 和 IntegerDigits 都认为 0 由单个数字组成：
{DigitCount[0, 10, 0], IntegerDigits[0]}相比之下，IntegerLength 认为 0 没有数字：
IntegerLength[0, 2]DigitCount[100, {3, 5, 7}]
DigitCount[100, 3, {0, 1, 2}, {3, 4}]
如果需要，也可以使用 Map 手动逐个对不同参数的情况进行计算：
DigitCount[100, #]& /@ {3, 5, 7}
MathWorld
The Wolfram Functions Site
NKS|Online文本
Wolfram Research (1999)，DigitCount，Wolfram 语言函数，https://reference.wolfram.com/language/ref/DigitCount.html （更新于 2025 年）.
CMS
Wolfram 语言. 1999. "DigitCount." Wolfram 语言与系统参考资料中心. Wolfram Research. 最新版本 2025. https://reference.wolfram.com/language/ref/DigitCount.html.
APA
Wolfram 语言. (1999). DigitCount. Wolfram 语言与系统参考资料中心. 追溯自 https://reference.wolfram.com/language/ref/DigitCount.html 年