done destructuring

This commit is contained in:
Oli Clive-Griffin 2021-06-05 00:02:52 +12:00
parent c1e56f5c29
commit 57a69bdc38

View file

@ -8,37 +8,46 @@
(meditations
"Destructuring is an arbiter: it breaks up arguments"
(= __ ((fn [[a b]] (str b a))
(= ":bar:foo" ((fn [[a b]] (str b a))
[:foo :bar]))
"Whether in function definitions"
(= (str "An Oxford comma list of apples, "
"oranges, "
"and pears.")
((fn [[a b c]] __)
((fn [[a b c]] (str "An Oxford comma list of "
a ", "
b ", and "
c "."))
["apples" "oranges" "pears"]))
"Or in let expressions"
(= "Rich Hickey aka The Clojurer aka Go Time aka Lambda Guru"
(let [[first-name last-name & aliases]
(list "Rich" "Hickey" "The Clojurer" "Go Time" "Lambda Guru")]
__))
(str first-name " " last-name (clojure.string/join (for [alias aliases]
(str " aka " alias))))))
"You can regain the full argument if you like arguing"
(= {:original-parts ["Stephen" "Hawking"] :named-parts {:first "Stephen" :last "Hawking"}}
(let [[first-name last-name :as full-name] ["Stephen" "Hawking"]]
__))
{:original-parts full-name :named-parts {:first first-name :last last-name}}))
"Break up maps by key"
(= "123 Test Lane, Testerville, TX"
(let [{street-address :street-address, city :city, state :state} test-address]
__))
(clojure.string/join ", " [street-address city state])))
"Or more succinctly"
(= "123 Test Lane, Testerville, TX"
(let [{:keys [street-address __ __]} test-address]
__))
(let [{:keys [street-address city state]} test-address]
(clojure.string/join ", " [street-address city state])))
"All together now!"
(= "Test Testerson, 123 Test Lane, Testerville, TX"
(___ ["Test" "Testerson"] test-address)))
((fn [[a b]
{:keys [street-address city state]}]
(str a " " b ", " street-address ", " city ", " state)
)
["Test" "Testerson"]
test-address)))