Skip to content

Instantly share code, notes, and snippets.

@emdeesee

emdeesee/reduction.clj

Last active August 29, 2015 14:28
Show Gist options
  • Save emdeesee/4c8a9bc6387f9ea1814a to your computer and use it in GitHub Desktop.
Save emdeesee/4c8a9bc6387f9ea1814a to your computer and use it in GitHub Desktop.
Download ZIP
Raw
reduction.clj
(fn red
([f [v & vs]] (red f v vs))
([f v [u & us]]
(cons v (when u (lazy-seq (red f (f v u) us))))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment