Skip to content

Instantly share code, notes, and snippets.

/gist:90213a0f47091e287bfc Secret

Created October 30, 2014 14:36
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save anonymous/90213a0f47091e287bfc to your computer and use it in GitHub Desktop.
Save anonymous/90213a0f47091e287bfc to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.clj
(defn merge-stats-v1
[m1 m2]
(-> m1
(update-in , [:stats :foo :bar] merge-mean-stddev (get-in m2 [:stats :foo :bar]))
(update-in , [:stats :foo :!bar] merge-mean-stddev (get-in m2 [:stats :foo :!bar]))
(update-in , [:stats :!foo :bar] merge-mean-stddev (get-in m2 [:stats :!foo :bar]))
(update-in , [:stats :!foo :!bar] merge-mean-stddev (get-in m2 [:stats :!foo :!bar]))))
(defn merge-stats-v2
[m1 m2]
(let [ks (combo/cartesian-product [:stats] [:foo :!foo] [:bar :!bar])]
(reduce #(update-in %1 %2 merge-mean-stddev (get-in m2 %2) m1 ks))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment