Data update
This commit is contained in:
parent
29a5eea0d4
commit
5c1bb7bfa9
2011 changed files with 35081 additions and 3229 deletions
|
|
@ -1,5 +1,4 @@
|
|||
proc matmul . m1[][] m2[][] r[][] .
|
||||
r[][] = [ ]
|
||||
func[][] matmul m1[][] m2[][] .
|
||||
for i to len m1[][]
|
||||
r[][] &= [ ]
|
||||
for j = 1 to len m2[1][]
|
||||
|
|
@ -9,8 +8,8 @@ proc matmul . m1[][] m2[][] r[][] .
|
|||
.
|
||||
.
|
||||
.
|
||||
return r[][]
|
||||
.
|
||||
mat1[][] = [ [ 1 2 3 ] [ 4 5 6 ] ]
|
||||
mat2[][] = [ [ 1 2 ] [ 3 4 ] [ 5 6 ] ]
|
||||
matmul mat1[][] mat2[][] erg[][]
|
||||
print erg[][]
|
||||
a[][] = [ [ 1 2 3 ] [ 4 5 6 ] ]
|
||||
b[][] = [ [ 1 2 ] [ 3 4 ] [ 5 6 ] ]
|
||||
print matmul a[][] b[][]
|
||||
|
|
|
|||
|
|
@ -0,0 +1,8 @@
|
|||
MatMul ← ≡(≡(/+×)¤:⍉)¤
|
||||
[[2 1 4]
|
||||
[0 1 1]]
|
||||
|
||||
[[6 3 ¯1 0]
|
||||
[1 1 0 4]
|
||||
[¯2 5 0 2]]
|
||||
MatMul
|
||||
Loading…
Add table
Add a link
Reference in a new issue