vmin   xtlang


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

Implementation

(bind-func vmin
  (lambda (buf:double* len:i64)
    (let ((min_val (pref buf 0))
          (i 0))
      (dotimes (i len)
        (if (< (pref buf i) min_val)
            (set! min_val (pref buf i))))
      min_val)))


Back to Index

Similar Entries