>> (defn par-doseq-fn [fn& seqs] >> (loop [rests seqs] >> (when (every? identity (map seq rests)) >> (apply fn (map first rests)) >> (recur (map rest rests))))) >> >> > It should of course be like this : > > (defn par-doseq-fn [fn& seqs] > (loop [rests seqs] > (when (every? seq rests) > (apply fn (map first rests)) > (recur (map rest rests)))) > which amounts to (def par-doseq-fn (comp dorun map))
Though there is some consing going on as a result of the map... Ok that's it, enough of me flooding the mailing list =P Sacha --~--~---------~--~----~------------~-------~--~----~ You received this message because you are subscribed to the Google Groups "Clojure" group. To post to this group, send email to clojure@googlegroups.com To unsubscribe from this group, send email to clojure+unsubscr...@googlegroups.com For more options, visit this group at http://groups.google.com/group/clojure?hl=en -~----------~----~----~----~------~----~------~--~---
