work   xtlang


Defined in:  https://github.com/digego/extempore/tree/v0.8.9/examples/core/extempore_lang.xtm

Implementation

;; do some work
(bind-func work
  (lambda (a:i64)
    (let ((i:i64 0))
      ;; 1 billion iterations
      (dotimes (i 1000000000)
        (* 2 3 4 5 6)))
    (printf "finished: %lld\n" a)
    ;; return a^2
    (* a a)))


Back to Index

Similar Entries