Matrix multiplication: Difference between revisions
Content deleted Content added
m →{{header|Phix}}: added large example from OI |
|||
Line 3,771: | Line 3,771: | ||
R = {{ r,r}, |
R = {{ r,r}, |
||
{-r,r}} |
{-r,r}} |
||
pp(matrix_mul(R,R)) |
pp(matrix_mul(R,R)) |
||
function row(integer i, l) return tagset(i+l,i) end function |
|||
constant I = apply(true,row,{tagset(16,0),371}), |
|||
J = apply(true,row,{tagset(371,0),16}) |
|||
pp(shorten(apply(true,shorten,{matrix_mul(I,J),{""},2}),"",2))</lang> |
|||
{{out}} |
{{out}} |
||
<pre> |
<pre> |
||
Line 3,789: | Line 3,794: | ||
{{ 0, 1}, |
{{ 0, 1}, |
||
{ -1, 0}} |
{ -1, 0}} |
||
{{17090486,17159492, `...`, 18125576,18194582}, |
|||
{17159492,17228870, `...`, 18200162,18269540}, |
|||
`...`, |
|||
{18125576,18200162, `...`, 19244366,19318952}, |
|||
{18194582,18269540, `...`, 19318952,19393910}} |
|||
</pre> |
</pre> |
||