Multiplication tables: Difference between revisions
Content added Content deleted
No edit summary |
(Added Neko) |
||
Line 3,436: | Line 3,436: | ||
11 | 121 132 |
11 | 121 132 |
||
12 | 144 |
12 | 144 |
||
</pre> |
|||
=={{header|Neko}}== |
|||
<lang ActionScript>/** |
|||
Multiplication table, in Neko |
|||
Tectonics: |
|||
nekoc multiplication-table.neko |
|||
neko multiplication-table |
|||
*/ |
|||
var sprintf = $loader.loadprim("std@sprintf", 2); |
|||
var i, j; |
|||
i = 1; |
|||
$print(" X |"); |
|||
while i < 13 { |
|||
$print(sprintf("%4d", i)); |
|||
i += 1; |
|||
} |
|||
$print("\n"); |
|||
$print(" ---+"); |
|||
i = 1; |
|||
while i < 13 { |
|||
$print("----"); |
|||
i += 1; |
|||
} |
|||
$print("\n"); |
|||
j = 1; |
|||
while j < 13 { |
|||
$print(sprintf("%3d", j)); |
|||
$print(" |"); |
|||
i = 1; |
|||
while i < 13 { |
|||
if j > i { |
|||
$print(" "); |
|||
} else { |
|||
$print(sprintf("%4d", i*j)); |
|||
} |
|||
i += 1; |
|||
} |
|||
$print("\n"); |
|||
j += 1; |
|||
}</lang> |
|||
{{out}} |
|||
<pre>prompt$ nekoc multiplication-table.neko |
|||
prompt$ neko multiplication-table |
|||
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> |
</pre> |
||