这个程序运行结果不正确？不知哪里错了？

TSC999

求一个整数（例如 123456789）的各位数字之和，mathematica 可以用下面这指令：

1. lst = IntegerDigits[123456789]         
   
2. Sum[lst[[k]], {k, 1, Length[lst]}]

复制代码

问题是：
我想统计 1，2，3，4，……，2015，2016 这个连续数列中， 各位数字之和等于 1 的有几个？等于 2 的有几个？……，等于 30 的有几个？
【注： 估计其中 1999 有最大的数字和，等于 1+9+9+9=28。】如何写程序？ 看似简单，我写来写去玩不转。

1. (* 在 1，2，3，4，\[Ellipsis]，2015，2016 中，它们的各位数字和是 1,2,3,\[Ellipsis]\
   
2. \[Ellipsis],28。问：每一种和数有多少个？*)
   
3. 
   
4. Table[f[i] = 0, {i, 1, 30}];
   
5. For[i = 1, i <= 2016, i++,
   
6. lst = IntegerDigits[i];
   
7. s = Sum[lst[[k]], {k, 1, Length[lst]}]]
   
8.   For[j = 1, j <= 30, j++,
   
9. If[s == j, f[j] = f[j] + 1];
   
10. ]
    
11. For[j = 1, j <= 30, j++,
    
12.   Print[j, "---", f[j]]];

复制代码

上面这个代码运行结果不正确。不知哪里错了？

kastin

你相当于把Mathematica当做C语言来使用，但总是出错，为啥不直接用C语言？
MMA本身是一种符号语言，使用的是是函数式编程，这是最接近通常的数学思维习惯的表达，并且高效简洁。不要用C的思维来编写MMA程序，不仅编写的程序繁琐难读，而且效率也比函数式编写的要低。

1. Total /@ IntegerDigits@Range[2016] // Tally

复制代码

结果：
\[\left(
\begin{array}{cc}
1 & 4 \\
2 & 10 \\
3 & 18 \\
4 & 27 \\
5 & 38 \\
6 & 51 \\
7 & 66 \\
8 & 83 \\
9 & 102 \\
10 & 119 \\
11 & 133 \\
12 & 142 \\
13 & 148 \\
14 & 150 \\
15 & 148 \\
16 & 142 \\
17 & 132 \\
18 & 118 \\
19 & 100 \\
20 & 81 \\
21 & 64 \\
22 & 49 \\
23 & 36 \\
24 & 25 \\
25 & 16 \\
26 & 9 \\
27 & 4 \\
28 & 1 \\
\end{array}
\right)\]

zeroieme

粗看了下，分号/（语句结束符）不正确。