Matrix multiplication: Difference between revisions
Content added Content deleted
(Added solution for Action!) |
|||
Line 5,916:
<lang ti89b>[[9,12,15][19,26,33][29,40,51][39,54,69]]</lang>
=={{header|Transd}}==
<lang scheme>#lang transd
MainModule: {
_start: (λ (with n 5
A (for i in Range(n) project (for k in Range(n) project k))
B (for i in Range(n) project (for k in Range(n) project (- n k)))
C (for i in Range(n) project (for k in Range(n) project 0))
(for i in Range( n ) do
(for j in Range( n ) do
(for k in Range( n ) do
(+= (get (get C i) j) (* (get (get A i) k) (get (get B k) j)))
)))
(lout C))
)
}</lang>{{out}}
<pre>
[[50, 40, 30, 20, 10],
[50, 40, 30, 20, 10],
[50, 40, 30, 20, 10],
[50, 40, 30, 20, 10],
[50, 40, 30, 20, 10]]
</pre>
=={{header|UNIX Shell}}==
|