[perf] Optimize -parent-child-transformer

src/malli/core.cljc

@@ -601,8 +601,15 @@
 
 (defn -parent-children-transformer [parent children transformer method options]
   (let [parent-transformer (-value-transformer transformer parent method options)
-        child-transformers (into [] (keep #(-transformer % transformer method options)) children)
-        child-transformer (when (seq child-transformers) (apply -comp (rseq child-transformers)))]
+        child-transformer
+        (reduce (fn [acc child]
+                  (let [transformer (-transformer child transformer method options)]
+                    (if acc
+                      (if transformer
+                        (-comp transformer acc)
+                        acc)
+                      transformer)))
+                nil children)]
     (-intercepting parent-transformer child-transformer)))
 
 (defn -map-transformer [ts]