Multiplication tables: Difference between revisions
Content added Content deleted
m (→{{header|MATLAB}}: fixed a typo) |
(Added PicoLisp) |
||
Line 1,077: | Line 1,077: | ||
12 | 144 |
12 | 144 |
||
</lang> |
</lang> |
||
=={{header|PicoLisp}}== |
|||
<lang PicoLisp>(de mulTable (N) |
|||
(space 4) |
|||
(for X N |
|||
(prin (align 4 X)) ) |
|||
(prinl) |
|||
(prinl) |
|||
(for Y N |
|||
(prin (align 4 Y)) |
|||
(space (* (dec Y) 4)) |
|||
(for (X Y (>= N X) (inc X)) |
|||
(prin (align 4 (* X Y))) ) |
|||
(prinl) ) ) |
|||
(mulTable 12)</lang> |
|||
Output: |
|||
<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|PureBasic}}== |
=={{header|PureBasic}}== |