Mat.Mat.gemm_tn: def of bend-blas-lapack@0.0.0.1
Import: import bend-blas-lapack@0.0.0.1/mat.bend as Mat
Lines 157-162 of bend-blas-lapack@0.0.0.1/mat.bend: https://jend.leeeet.dev/read.txt?path=bend-blas-lapack@0.0.0.1/mat.bend&start_line=157&end_line=162

import Base
import bend-blas-lapack@0.0.0.1/blas.bend as B

# C = alpha A^T B + beta C, A stored k x rows
def Mat.gemm_tn(+rows: Nat, +k: Nat, +cols: Nat, alpha: F32, a: Mat<k, rows>, b: Mat<k, cols>, beta: F32, c: Mat<rows, cols>) -> IO(Result<&1, &1, U32 & String, Mat<rows, cols>>):
  MatA{x} = a
  MatA{y} = b
  MatA{z} = c
  IO.bind(Result<&1, &1, U32 & String, Array<F32>>, Result<&1, &1, U32 & String, Mat<rows, cols>>, B.Blas.sgemm(1, 0, U32.from_nat(rows), U32.from_nat(cols), U32.from_nat(k), alpha, x, y, beta, z), r => Mat.wrap(rows, cols, r))

Uses (13):
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=Array
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=F32
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=IO
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=IO.bind
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=Nat
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=Pair
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=Result
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=String
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=U32
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=U32.from_nat
  https://jend.leeeet.dev/definition.txt?path=bend-blas-lapack@0.0.0.1/blas.bend&name=Blas.sgemm
  https://jend.leeeet.dev/definition.txt?path=bend-blas-lapack@0.0.0.1/mat.bend&name=Mat
  https://jend.leeeet.dev/definition.txt?path=bend-blas-lapack@0.0.0.1/mat.bend&name=Mat.wrap