Multiplication tables: Difference between revisions
Content added Content deleted
(Added PicoLisp) |
(Ada solution added) |
||
Line 50: | Line 50: | ||
=={{header|Ada}}== |
|||
<lang Ada> |
|||
with Ada.Text_IO; use Ada.Text_IO; |
|||
with Ada.Strings.Fixed; use Ada.Strings.Fixed; |
|||
procedure Multiplication_Table is |
|||
package IO is new Integer_IO (Integer); |
|||
use IO; |
|||
begin |
|||
Put (" | "); |
|||
for Row in 1..12 loop |
|||
Put (Row, Width => 4); |
|||
end loop; |
|||
New_Line; |
|||
Put_Line ("--+-" & 12 * 4 * '-'); |
|||
for Row in 1..12 loop |
|||
Put (Row, Width => 2); |
|||
Put ("| "); |
|||
for Column in 1..12 loop |
|||
if Column < Row then |
|||
Put (" "); |
|||
else |
|||
Put (Row * Column, Width => 4); |
|||
end if; |
|||
end loop; |
|||
New_Line; |
|||
end loop; |
|||
end Multiplication_Table; |
|||
</lang> |
|||
<pre> |
|||
| 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|AppleScript}}== |
=={{header|AppleScript}}== |
||
<lang AppleScript >set n to 12 -- Size of table. |
<lang AppleScript >set n to 12 -- Size of table. |
||
Line 87: | Line 131: | ||
12 144 |
12 144 |
||
"</pre> |
"</pre> |
||
=={{header|AutoHotkey}}== |
=={{header|AutoHotkey}}== |
||
<lang autohotkey>Gui, -MinimizeBox |
<lang autohotkey>Gui, -MinimizeBox |