Anonymous user
Matrix multiplication: Difference between revisions
m
→{{header|Tailspin}}: syntax update
m (→{{header|Tailspin}}: syntax update) |
|||
Line 4,341:
<lang tailspin>
templates matmul@{B:}
$ -> \[i](def r: $;
[1..$B(1)::length -> \(def j: $; @: 0;
1..$r::length -> @: $@ + $r($) * $B($;$j);
$@ !\)] !
\) !
end matmul
Line 4,353:
$ -> #
'$@ -> $::length~..$w -> ' ';$@(-1..1:-1)...;' !
<1..> ..|@: $ mod 10; $ ~/ 10 -> #
<=0?($@ <[](0)>)> ..|@: 0;
end formatN
$... -> '|$(1) -> formatN;$(2..-1)... -> ', $ -> formatN;';|
| |||