walker.clj

(dorun
 (take (to-int out-num)
       (filter
        #(= (:fitness %) (to-int test-num))
        (map
         #(do (println (pr-str %)) %)
         (let [cross (to-int cross)
               cross (if (< cross 1) cross (/ cross 100))]
           (pmap
            #(evaluate-asm % script (to-int timeout))
            (filter
             #(if max-len
                (< (count (% :representation)) (to-int max-len))
                %)
             (repeatedly
              (fn []
                (if (< (rand) cross)
                  ;; crossover
                  (crossover-asm (pick pop) (pick pop) (to-int cross-pt))
                  ;; mutation
                  (mutate-asm (pick pop) mut-ops)))))))))))