Multiplication tables: Difference between revisions
no edit summary
No edit summary |
|||
Line 5,565:
11 | 121 132
12 | 144</pre>
=={{header|N/t/roff}}==▼
Works with gnu nroff. Please note that the script example contains tab characters which are essential for the correct tabular output.▼
<syntaxhighlight lang="nroff">▼
.nf▼
.ta T 2mR▼
.nr x 1 1▼
.nr y 2 1▼
.nr p 0▼
.while (\n[x] <= 12) \{\▼
.if (\n[x]<10) \0\c▼
\n[x]\c▼
.if (\n[x]=1) \c▼
.while (\n[y] <= 12) \{\▼
.nr p \n[x]*\n[y]▼
.ie (\n[y]>=\n[x]) \n[p] \c▼
.el \c▼
.nr y +1▼
.\}▼
.br▼
.nr x +1▼
.nr y 1 1▼
.\}▼
</syntaxhighlight>▼
{{out}}▼
<pre>▼
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|Neko}}==
Line 5,658 ⟶ 5,697:
121 132 | 11
144 | 12</pre>
▲=={{header|N/t/roff}}==
▲Works with gnu nroff. Please note that the script example contains tab characters which are essential for the correct tabular output.
▲<syntaxhighlight lang="nroff">
▲.nf
▲.ta T 2mR
▲.nr x 1 1
▲.nr y 2 1
▲.nr p 0
▲.while (\n[x] <= 12) \{\
▲.if (\n[x]<10) \0\c
▲\n[x]\c
▲.if (\n[x]=1) \c
▲.while (\n[y] <= 12) \{\
▲.nr p \n[x]*\n[y]
▲.ie (\n[y]>=\n[x]) \n[p] \c
▲.el \c
▲.nr y +1
▲.\}
▲.br
▲.nr x +1
▲.nr y 1 1
▲.\}
▲</syntaxhighlight>
▲{{out}}
▲<pre>
▲ 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|OCaml}}==
|