functional-java-constructor.clj

(defn constructor-num-args [klass]
  (let [constrs (.getConstructors klass)]
    (set
     (for [c constrs]
       (count (.getParameterTypes c))
       ))
    ))

(defn- mk-fn-inst [klass numargs]
  (let [args (vec (for [i (range numargs)] (symbol (str "arg" i))))]
    `(~args (new ~(symbol (.getName klass)) ~@args))
    ))

(defn factory-fn [klass]
  (let [insts (for [i (constructor-num-args klass)] (mk-fn-inst klass i))]
    (eval `(fn ~@insts))
    ))