Daniel Werner <daniel.d.wer...@googlemail.com> writes:

> After a few tries I've come up with the following algorithm to
> transform :keys syntax into normal destructuring syntax, but am still
> appalled by its complexity:
>
> (let [vmap {'y :y, 'z :z :keys ['a 'b]}]
>   (->> vmap
>     ((juxt :keys :strs :syms))
>     (apply concat)
>     (mapcat #(vector % (keyword %)))
>     (apply hash-map)))
>
> ==> {a :a, b :b}


Pretty's such a subjective thing, but my first impulse was:

  (let [vmap {'y :y, 'z :z :keys ['a 'b]}]
    (reduce #(assoc %1 %2 (keyword %2))
            {}
            (mapcat vmap [:keys :strs :syms])))


-- 
Mark Triggs
<mark.h.tri...@gmail.com>

-- 
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
Note that posts from new members are moderated - please be patient with your 
first post.
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

Reply via email to