Skip to content

Instantly share code, notes, and snippets.

@tomjack

tomjack/gist:78d8bcf9f2753e2f85ed Secret

Created May 30, 2012 17:51
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 tomjack/78d8bcf9f2753e2f85ed to your computer and use it in GitHub Desktop.
Save tomjack/78d8bcf9f2753e2f85ed to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.clj
(fn reducer [coll xf]
(reify
cljs.core/IReduce
(-reduce [this f1]
(-reduce this f1 (f1)))
(-reduce [_ f1 init]
(-reduce coll (xf f1) init))))
(fn folder [coll xf]
(reify
cljs.core/IReduce
(-reduce [_ f1]
(-reduce coll (xf f1) (f1)))
(-reduce [_ f1 init]
(-reduce coll (xf f1) init))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment