Skip to content

Instantly share code, notes, and snippets.

@amalloy
Created April 13, 2016 01:24
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 amalloy/f4744a190594c6d2f25909b9a8370f84 to your computer and use it in GitHub Desktop.
Save amalloy/f4744a190594c6d2f25909b9a8370f84 to your computer and use it in GitHub Desktop.
user> (reduce (fn [acc [keyseq type]]
(update-in acc keyseq (fnil conj #{}) type))
{}
(for [[method objs] inputs
obj objs
[half fields] obj
[field value] fields]
[[method half field] (type value)]))
{"SignIn" {:request {"InvitationID" #{nil}, "ReturnExpiredAuthenticationMethods" #{java.lang.Boolean}, "AuthInfo" #{nil clojure.lang.PersistentArrayMap}, "Version" #{nil}, "ApiVersion" #{java.lang.String}, "ClientInfo" #{clojure.lang.PersistentArrayMap}}, :response {"AuthenticationLevel" #{java.lang.Long}, "ExpiredAuthenticationMethods" #{nil clojure.lang.PersistentVector}, "ExpirationReason" #{nil}, "User" #{clojure.lang.PersistentArrayMap}, "Alerts" #{nil}, "NewSession" #{nil}, "ApiVersion" #{nil}}}}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment