Skip to content

Instantly share code, notes, and snippets.

@tomjack

tomjack/project.clj Secret

Created April 6, 2010 14: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/1e0df667660e862d7a0c to your computer and use it in GitHub Desktop.
Save tomjack/1e0df667660e862d7a0c to your computer and use it in GitHub Desktop.
Download ZIP
Raw
project.clj
(defn fold2 [f1 acc1 f2 acc2 list]
(if (seq list)
(recur f1 (f1 (first list) acc1)
f2 (f2 (first list) acc2)
(next list))
[acc1 acc2]))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment