mprint   xtlang


Defined in:  https://github.com/digego/extempore/tree/v0.8.9/libs/core/math.xtm

Implementation

(bind-func mprint
  (lambda (m:double* nrows:i64 ncols:i64)
    (let ((i 0) (j 0))
      ;;(printf "[")
      (dotimes (i nrows)
        (printf "[")
        (dotimes (j ncols)
          (printf " %f" (pref m (rowmaj_idx_2D i j ncols))))
        (printf " ]\n"))
      ;;(printf "]")
      void)))


Back to Index

Similar Entries