Mat.Mat.svd_values: def of bend-blas-lapack@0.0.0.1
Import: import bend-blas-lapack@0.0.0.1/mat.bend as Mat
Lines 271-274 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=271&end_line=274

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

# the singular values, largest first
def Mat.svd_values(+m: Nat, +n: Nat, a: Mat<m, n>) -> IO(Result<&1, &1, U32 & String, Vec<Nat.min(m, n)>>):
  MatA{x} = a
  IO.bind(Result<&1, &1, U32 & String, Array<F32>>, Result<&1, &1, U32 & String, Vec<Nat.min(m, n)>>, L.Lapack.sgesvd_s(U32.from_nat(m), U32.from_nat(n), x), r => Vec.wrap(Nat.min(m, n), r))

Uses (15):
  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=Nat.min
  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/lapack.bend&name=Lapack.sgesvd_s
  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=Vec
  https://jend.leeeet.dev/definition.txt?path=bend-blas-lapack@0.0.0.1/mat.bend&name=Vec.wrap