f7   xtlang


Defined in:  https://github.com/digego/extempore/tree/v0.8.9/examples/contrib/cas.xtm

Implementation

;; watch out for vectors!
(bind-func f7
  (lambda ()
    (let ((res (linsolve (vector (= (+ x y z) 1)
                                 (= (- x y) 19)
                                 (= (- (* 2 x) z) 3))
                         (vector x y z))))
      (println "x:" (vref res 0)
               "y:" (vref res 1)
               "z:" (vref res 2))
      void)))


Back to Index

Similar Entries