用mathematica计算n进制的加法表和乘法表

加法表
f[n_] := Table[ Column[Table[IntegerDigits[i + j, n], {j, 0, n - 1}]], {i, 0, n - 1}]
乘法表
g[n_] := Table[ Column[Table[IntegerDigits[i j, n], {j, 0, n - 1}]], {i, 0, n - 1}]

你可能感兴趣的:(用mathematica计算n进制的加法表和乘法表)