(defn fitness [coll-f goal val]
  (reduce #(if (proximity goal (%1 val) (%2 val))
	     %1
	     %2
	     ) coll-f))

(defmacro rand-func [vars]
  (for [x (range (count vars))]
    `(list ( fn [ ~(first vars) ] 
		(* ~(first vars) ~(first vars) ) ) )))

(defmacro rand-func [vars]
  `(list ( fn [ ~(first vars) ] 
	      (* ~(first vars) 
		 ~(first vars) ) ) ))

(defmacro rand-func [vars]
  (let [f 
	`(list ( fn [ ~(first vars) ]
		    (* ~(first vars) 
		       ~(first vars) ) ) )]
    (struct fun f (list f))))

(defstruct fun :f :rep)



user=> #'user/fun
user=> nil
user=> (rand-func [x])
java.lang.ClassCastException: clojure.lang.PersistentList cannot be cast to clojure.lang.IFn
java.lang.ClassCastException: clojure.lang.PersistentList cannot be cast to clojure.lang.IFn
	at user.eval__2750.invoke(Unknown Source)
	at clojure.lang.Compiler.eval(Compiler.java:3891)
	at clojure.lang.Repl.main(Repl.java:75)
user=> 

user=> (rand-func ['x])
java.lang.Exception: Unsupported binding form: clojure.lang.PersistentList@e8c11342
cl