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

Add standard arities to into.

Browse source
This commit is contained in:
Christophe Grand 2015-09-16 13:31:22 +02:00
parent 50587dd35e
commit c50e46e970
1 changed files with 35 additions and 25 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -73,32 +73,42 @@
([f init] ([f init]
(reduce (fn ([] init) ([acc] (f acc)) ([acc x] (f acc x)))))) (reduce (fn ([] init) ([acc] (f acc)) ([acc x] (f acc x))))))
(defn- into-rf [to]
(cond
(instance? clojure.lang.IEditableCollection to)
(if (map? to)
(kvrf
([] (transient to))
([acc] (persistent! acc))
([acc x] (conj! acc x))
([acc k v] (assoc! acc k v)))
(fn
([] (transient to))
([acc] (persistent! acc))
([acc x] (conj! acc x))))
(map? to)
(kvrf
([] to)
([acc] acc)
([acc x] (conj acc x))
([acc k v] (assoc acc k v)))
:else
(fn
([] to)
([acc] acc)
([acc x] (conj acc x)))))
(defn into (defn into
"Returns a transducer which accumulate every input in a collection and outputs only the accumulated collection." "Like clojure.core/into but with a 1-arg arity returning a transducer which accumulate every input in a collection and outputs only the accumulated collection."
[coll] ([to]
(reduce (cond (reduce (into-rf to)))
(instance? clojure.lang.IEditableCollection coll) ([to from]
(if (map? coll) (into to identity from))
(kvrf ([to xform from]
([] (transient coll)) (let [rf (xform (into-rf to))]
([acc] (persistent! acc)) (if-let [rf (and (map? from) (satisfies? clojure.core.protocols/IKVReduce from) (some-kvrf rf))]
([acc x] (conj! acc x)) (rf (clj/reduce-kv rf (rf) from))
([acc k v] (assoc! acc k v))) (rf (clj/reduce rf (rf) from))))))
(fn
([] (transient coll))
([acc] (persistent! acc))
([acc x] (conj! acc x))))
(map? coll)
(kvrf
([] coll)
([acc] acc)
([acc x] (conj acc x))
([acc k v] (assoc acc k v)))
:else
(fn
([] coll)
([acc] acc)
([acc x] (conj acc x))))))
(defmacro ^:private or-instance? [class x y] (defmacro ^:private or-instance? [class x y]
(let [xsym (gensym 'x_)] (let [xsym (gensym 'x_)]