           (concat (apply clojure.set/intersection (map set size-results))
                   comb))))
 
-(defn derive-median [target-field source-field & [mapper]]
+(defn derive-median [c target-field source-field & [mapper]]
   (fn [s]
-    (when-let [r (median-of (count s) (map (if mapper (comp mapper source-field) source-field)
+    (when-let [r (median-of c (map (if mapper (comp mapper source-field) source-field)
                                    (filter :ms s)))]
       {target-field r})))
 

    :dash-astar-nods     [da 18 "DAxH-A*"]

    :dash-astar-sh       [da 21 "DASH-A*-sh"] 
    :dash-astar-sh-hoc   [da 22 "DASH-A*-sh-hoc"]
    :dash-astar-sh-nos   [da 23 "DAcH-A*-sh"]
    :dash-astar-sh-nods  [da 24 "DAxH-A*-sh"]

    }))


             f
             ;nil 1
             10 3600
             nil #_ 512 nil ::ExpResult)))
      (count +dm-sizes+) +dm-reps+]]))


#_ (do (use 'angelic.scripts.thesis 'angelic.util.experiments 'angelic.util.cluster) (cluster-smart-runner (make-dm-exps2) false (str *default-run-dir* "/thesis-dm3/")))


(comment ;; to run locally, if needed.
