Skip to content

Instantly share code, notes, and snippets.

@sw1nn

sw1nn/gist:4684523a7063dc0fb08a Secret

Created October 10, 2012 08:50
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 sw1nn/4684523a7063dc0fb08a to your computer and use it in GitHub Desktop.
Save sw1nn/4684523a7063dc0fb08a to your computer and use it in GitHub Desktop.
Download ZIP
partition-by when pred is true
Raw
gistfile1.clj
(defn parter [pred]
(let [v (atom 0)]
(fn [x]
(if (pred x) (swap! v inc) @v))))
(partition-by (parter identity) [ false false true false true ])
;=> ((false false) (true false) (true))
; cf.
(partition-by identity [ false false true false true ])
;=> ((false false) (true) (false) (true))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment