lt3   xtlang


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

Implementation

;; list test 3
(bind-func lt3
  (lambda ()
    (let ((l1 (Cons 1 (Cons 2 (Nil))))
          (l3 (fmap (lambda (x) (Cons x (Cons x (Nil)))) l1)))
      (println 'l3 '= l3))))


Back to Index

Similar Entries