Skip to content

Instantly share code, notes, and snippets.

@kawas44

kawas44/assoc-some.clj

Created March 23, 2022 14:55
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save kawas44/a6beda359c0ec34dab74b635d40d00be to your computer and use it in GitHub Desktop.
Save kawas44/a6beda359c0ec34dab74b635d40d00be to your computer and use it in GitHub Desktop.
Download ZIP
assoc-some
Raw
assoc-some.clj
(defn assoc-some
([m k v]
(cond-> m
(some? v) (assoc k v)))
([m k v & kvs]
{:pre [(even? (count kvs))]}
(reduce (fn [acc [k v]]
(assoc-some acc k v))
(assoc-some m k v)
(partition 2 kvs))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment