comp-pro

comp-pro .clj

(defmacro ^:private defn-meval [& preamble-and-meval-to-forms]
  (let [preamble (butlast preamble-and-meval-to-forms)
        meval-to-forms (last preamble-and-meval-to-forms)
        mevaluated (eval meval-to-forms)]
    `(defn ~@preamble
       ~@mevaluated)))

(defn-meval comp-pro
  (let [fargs (repeatedly gensym)
        xarg (gensym "xarg")]
    (concat
      (for [i (range 1 21)]
        (let [fargs2 (vec (take i fargs))]
          `(~fargs2
             (fn [~xarg]
               ~(reduce #(list %2 %1) xarg (reverse fargs2))))))
      [(let [fargs2 (vec (take 20 fargs))
             rstfargs (gensym "rstfargs_")]
         `(~(conj fargs2 '& rstfargs)
           (fn [~xarg]
             ~(reduce #(list %2 %1)
                `(reduce #(%2 %1) ~xarg (reverse ~rstfargs))
                (reverse fargs2)))))])))