Multiplication tables: Difference between revisions
Content added Content deleted
m (Fixed language sections order) |
(Adding MUMPS example) |
||
Line 995: | Line 995: | ||
12 0 0 0 0 0 0 0 0 0 0 0 144 |
12 0 0 0 0 0 0 0 0 0 0 0 144 |
||
</lang> |
</lang> |
||
=={{header|MUMPS}}== |
|||
<lang MUMPS>MULTTABLE(SIZE) |
|||
;Print out a multiplication table |
|||
;SIZE is the size of the multiplication table to make |
|||
;MW is the maximum width of the numbers |
|||
;D is the down axis |
|||
;A is the across axis |
|||
;BAR is the horizontal bar under the operands |
|||
NEW MW,D,A,BAR |
|||
IF $DATA(SIZE)<1 SET SIZE=12 |
|||
SET MW=$LENGTH(SIZE*SIZE) |
|||
SET BAR="" FOR I=1:1:(MW+2) SET BAR=BAR_"-" |
|||
FOR D=1:1:(SIZE+2) DO |
|||
.FOR A=1:1:(SIZE+1) DO |
|||
..WRITE:(D=1)&(A=1) !,$JUSTIFY("",MW-1)," X|" |
|||
..WRITE:(D=1)&(A>1) ?((A-1)*5),$JUSTIFY((A-1),MW) |
|||
..WRITE:(D=2)&(A=1) !,BAR |
|||
..WRITE:(D=2)&(A'=1) BAR |
|||
..WRITE:(D>2)&(A=1) !,$JUSTIFY((D-2),MW)," |" |
|||
..WRITE:((A-1)>=(D-2))&((D-2)>=1) ?((A-1)*5),$JUSTIFY((D-2)*(A-1),MW) |
|||
KILL MW,D,A,BAR |
|||
QUIT</lang> |
|||
Output:<pre>USER>D MULTTABLE^ROSETTA |
|||
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> |
|||
=={{header|OCaml}}== |
=={{header|OCaml}}== |