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

【用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}]

    推荐阅读