Multiplication tables: Difference between revisions
Content added Content deleted
(→{{header|BQN}}: More structured approach to outer portions) |
|||
Line 5,152: | Line 5,152: | ||
12| 144 |
12| 144 |
||
</pre> |
</pre> |
||
=={{header|Picat}}== |
|||
<lang Picat>go => |
|||
N=12, |
|||
make_table(N), |
|||
nl. |
|||
% |
|||
% Make a table of size N |
|||
% |
|||
make_table(N) => |
|||
printf(" "), |
|||
foreach(I in 1..N) printf("%4w", I) end, |
|||
nl, |
|||
println(['-' : _ in 1..(N+1)*4+1]), |
|||
foreach(I in 1..N) |
|||
printf("%2d | ", I), |
|||
foreach(J in 1..N) |
|||
if J>=I then |
|||
printf("%4w", I*J) |
|||
else |
|||
printf(" ") |
|||
end |
|||
end, |
|||
nl |
|||
end, |
|||
nl.</lang> |
|||
{{out}} |
|||
<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|PicoLisp}}== |
=={{header|PicoLisp}}== |