egison-2.4.3: lib/core/pattern.egi

;;
;; Pattern.egi
;;

(define $comb
  (macro [$n $v]
    (loop $l $i (between 1 n) <join _ <cons $`v_i l>> _)))

(define $comb/double
  (macro [$n $v]
    (loop $l $i (between 1 n) <join _ (& <cons $`v_i _> l)> _)))

(define $cloop
  (macro [$n $v]
    (loop $l $i (between 1 n) {`v_i @l} {})))