Data update

This commit is contained in:
Ingy döt Net 2024-07-13 15:19:22 -07:00
parent 29a5eea0d4
commit 5c1bb7bfa9
2011 changed files with 35081 additions and 3229 deletions

View file

@ -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[][]

View file

@ -0,0 +1,8 @@
MatMul ← ≡(≡(/+×)¤:⍉)¤
[[2 1 4]
[0 1 1]]
[[6 3 ¯1 0]
[1 1 0 4]
[¯2 5 0 2]]
MatMul