luciano/xforms
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Adds transducer arity to transjuxt.

Browse source
This commit is contained in:
Christophe Grand 2015-09-15 14:11:39 +02:00
parent 77ca032c01
commit e92feae40a
1 changed files with 9 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
src/net/cgrand/xforms.clj
View file

@ -298,10 +298,13 @@
(defn transjuxt (defn transjuxt
"Performs several transductions over coll at once. xforms-map can be a map or vector. "Performs several transductions over coll at once. xforms-map can be a map or vector.
Returns a map with the same keyset as xforms-map (or a vector of same size as xforms-map)." Returns a map with the same keyset as xforms-map (or a vector of same size as xforms-map).
[xforms-map coll] Returns a transducer when coll is omitted."
(let [rf (if (vector? xforms-map) ([xforms-map]
(apply juxt (map #(% just) xforms-map)) (let [rf (if (vector? xforms-map)
(apply juxt-map (sequence (comp (by-key (map #(% just))) cat) xforms-map)))] (apply juxt (map #(% just) xforms-map))
(rf (clj/reduce rf (rf) coll)))) (apply juxt-map (sequence (comp (by-key (map #(% just))) cat) xforms-map)))]
(reduce rf)))
([xforms-map coll]
(transduce (transjuxt xforms-map) just coll)))