Anonymous user
Matrix multiplication: Difference between revisions
no edit summary
(Added second D version) |
No edit summary |
||
Line 1,841:
=={{header|R}}==
<lang r>a %*% b</lang>
=={{header|Racket}}==
{{trans|Scheme}}
<lang scheme>(define (m-mult m1 m2)
(for/list ([r m1])
(for/list ([c (apply map list m2)])
(apply + (map * r c)))))</lang>
=={{header|REXX}}==
| |||