luciano/clojure-koans
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Finished koan 15

Browse source
This commit is contained in:
Matt Davidson 2022-11-23 22:39:52 +00:00
parent 37bf3d22bf
commit 40755feb94
1 changed files with 26 additions and 15 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

37
src/koans/15_destructuring.clj
View file

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