V ludwigvonmises2

	(comment ; Fun with transducers, v2

	;; Still haven't found a brief + approachable overview of Clojure 1.7's new
	;; transducers in the particular way I would have preferred myself - so here goes:

	;;;; Definitions
	;; Looking at the `reduce` docstring, we can define a 'reducing-fn' as:
	(fn reducing-fn ([]) ([accumulation next-input])) -> new-accumulation
	;; (The `[]` arity is actually optional; it's only used when calling
	;; `reduce` w/o an init-accumulator).

	(require '[clojure.core.async :as a])

	(def xform (comp (map inc)
	(filter even?)
	(dedupe)
	(flatmap range)
	(partition-all 3)
	(partition-by #(< (apply + %) 7))
	(flatmap flatten)
	(random-sample 1.0)