Data update

This commit is contained in:
Ingy döt Net 2024-03-06 22:25:12 -08:00
parent ed705008a8
commit 0df55f9f24
2196 changed files with 32999 additions and 3075 deletions

View file

@ -0,0 +1,16 @@
proc matmul . m1[][] m2[][] r[][] .
r[][] = [ ]
for i to len m1[][]
r[][] &= [ ]
for j = 1 to len m2[1][]
r[i][] &= 0
for k to len m2[][]
r[i][j] += m1[i][k] * m2[k][j]
.
.
.
.
mat1[][] = [ [ 1 2 3 ] [ 4 5 6 ] ]
mat2[][] = [ [ 1 2 ] [ 3 4 ] [ 5 6 ] ]
matmul mat1[][] mat2[][] erg[][]
print erg[][]

View file

@ -1,4 +1,2 @@
sub infix:<×>(@A, @B) {
cross(@A, ([Z] @B), with => { [+] @^a Z* @^b })
.rotor(@B);
}
sub infix:<·> { [+] @^a Z* @^b }
sub infix:<×>(@A, @B) { (@A X· [Z] @B).rotor(@B) }

View file

@ -1,5 +1,5 @@
import "/matrix" for Matrix
import "/fmt" for Fmt
import "./matrix" for Matrix
import "./fmt" for Fmt
var a = Matrix.new([
[1, 2],