normal   xtlang


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

Implementation

(bind-func normal:[Vector:<!a,i64>*,Vector:<!a,i64>*]*
  (lambda (v1)
    (let ((vdat (alloc (tref v1 1))))
      (vnorm (tref v1 0) (tref v1 1) vdat)
      (Vector vdat (tref v1 1)))))


Back to Index

Similar Entries