Mathematica入门习题[14]–条件(;/)的使用

第十四题

(*求出f1-f100的值*)
f[1] = 1;
f[2] = 0;
f[3] = 1;
f[x_] := f[x] = f[x - 1] - 2*f[x - 2] + f[x - 3];
f = Table[f[x], {x, 1, 100, 1}]

"最大值 --:" <> ToString@Max[f]
"最小值 --:" <> ToString@Min[f]
"总和 --:" <> ToString@Total[f]
">0的个数 --:" <> ToString[Count[f, x_ /; x > 0]]
"=0的个数 --:" <> ToString[Count[f, x_ /; x == 0]]
"<0的个数 --:" <> ToString[Count[f, x_ /; x < 0]]