diff --git a/src/koans/15_destructuring.clj b/src/koans/15_destructuring.clj index 32fc983..5ddd735 100644 --- a/src/koans/15_destructuring.clj +++ b/src/koans/15_destructuring.clj @@ -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)))