Multiplication tables: Difference between revisions
Content added Content deleted
m (→{{header|JavaScript}}: DOMmier) |
(added factor implementation) |
||
Line 435: | Line 435: | ||
|} |
|} |
||
</blockquote> |
</blockquote> |
||
=={{header|Factor}}== |
|||
<lang factor>USING: io kernel math math.parser math.ranges sequences ; |
|||
IN: multiplication-table |
|||
: print-row ( n -- ) |
|||
[ number>string 2 CHAR: space pad-head write " |" write ] |
|||
[ 1 - [ " " write ] times ] |
|||
[ |
|||
dup 12 [a,b] |
|||
[ * number>string 4 CHAR: space pad-head write ] with each |
|||
] tri nl ; |
|||
: print-table ( -- ) |
|||
" " write |
|||
1 12 [a,b] [ number>string 4 CHAR: space pad-head write ] each nl |
|||
" +" write |
|||
12 [ "----" write ] times nl |
|||
1 12 [a,b] [ print-row ] each ;</lang> |
|||
<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|Forth}}== |
=={{header|Forth}}== |