Matrix multiplication: Difference between revisions
Content added Content deleted
(Added Ela) |
|||
| Line 1,320: | Line 1,320: | ||
writefln("A * B = \n" ~ form, result); |
writefln("A * B = \n" ~ form, result); |
||
}</lang> |
}</lang> |
||
=={{header|Ela}}== |
|||
<lang ela>open list |
|||
mmult a b = [ [ sum $ zipWith (*) ar bc \\ bc <- (transpose b) ] \\ ar <- a ] |
|||
[[1, 2], |
|||
[3, 4]] `mmult` [[-3, -8, 3], |
|||
[-2, 1, 4]]</lang> |
|||
=={{header|ELLA}}== |
=={{header|ELLA}}== |
||