Event reducer example

gistfile1.clj

(def example-story-events [
	{
		:title "Funding cut again"
		:tags [:science]
		:author ["Chuck Newton"]
	}
	{
		:tags [:politics]
	}
	{
		:title "A difficult tightrope to cross"
	}
])

(defn article-reducer [acc event]
	(into acc
		(for [[k, v] event]
			(if (vector? v)
				[k (concat (k event) (k acc) )]
				[k v]))))