my-test-13   xtlang


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

Implementation

;; returns boolean true
(bind-func my-test-13
  (lambda (x:i64)
    (cond ((= x 1) (printf "A\n"))
          ((= x 2) (printf "B\n"))
          ((= x 3) (printf "C\n"))
          ((= x 4) (printf "D\n"))
          (else (printf "E\n")))
    #t))


Back to Index