join   xtlang


Defined in:  https://github.com/digego/extempore/tree/v0.8.9/tests/core/algebraic_data_types.xtm

Implementation

;; also sometimes called flatten
(bind-func join:[ADList{!a}*,ADList{ADList{!a}*}*]*
  (lambda (M)
    (ADCons$ M (xs xss) (append xs (join xss)) (ADNil))))


Back to Index

Similar Entries