Multiplication tables: Difference between revisions
m
→{{header|Mathematica}}
m (→{{header|Phix}}: added syntax colouring the hard way) |
|||
Line 4,412:
</pre>
=={{header|Mathematica}}/{{header|Wolfram Language}}==
<lang Mathematica>Grid[{{Range[12]//Column,Grid[UpperTriangularize[KroneckerProduct[Range[12],Range[12]]]/.{0->""}]}}]</lang>
{{out}}
<pre>1 1 2 3 4 5 6 7 8 9 10 11 12▼
▲1 1 2 3 4 5 6 7 8 9 10 11 12
2 4 6 8 10 12 14 16 18 20 22 24
3 9 12 15 18 21 24 27 30 33 36
Line 4,427 ⟶ 4,426:
10 100 110 120
11 121 132
12 144</pre>
=={{header|MATLAB}} / {{header|Octave}}==
|