RosettaCodeData/Task/Multiplication-tables/Mathematica/multiplication-tables.math

2 lines
101 B
Plaintext

Grid[{{Range[12]//Column,Grid[UpperTriangularize[KroneckerProduct[Range[12],Range[12]]]/.{0->""}]}}]