Anonymous user
Multiplication tables: Difference between revisions
→{{header|Factor}}
m (→{{header|REXX}}: corrected misspellings. -- ~~~~) |
|||
Line 1,030:
11 121 132
12 144
=={{header|F#}}==
Translation of C#
<lang FSharp>
open System
let multTable () =
Console.Write (" X".PadRight (4))
for i = 1 to 12 do Console.Write ((i.ToString "####").PadLeft 4)
Console.Write "\n ___"
for i = 1 to 12 do Console.Write " ___"
Console.WriteLine ()
for row = 1 to 12 do
Console.Write (row.ToString("###").PadLeft(3).PadRight(4))
for col = 1 to 12 do
if row <= col then Console.Write ((row * col).ToString("###").PadLeft(4))
else
Console.Write ("".PadLeft 4)
Console.WriteLine ()
Console.WriteLine ()
Console.ReadKey () |> ignore
multTable ()
</lang>
Output:
<pre>
X 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
4 16 20 24 28 32 36 40 44 48
5 25 30 35 40 45 50 55 60
6 36 42 48 54 60 66 72
7 49 56 63 70 77 84
8 64 72 80 88 96
9 81 90 99 108
10 100 110 120
11 121 132
12 144
</pre>
=={{header|Factor}}==
| |||