You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
47 lines
1.7 KiB
Clojure
47 lines
1.7 KiB
Clojure
(ns koans.15-destructuring
|
|
(:require [koan-engine.core :refer :all]))
|
|
|
|
(def test-address
|
|
{:street-address "123 Test Lane"
|
|
:city "Testerville"
|
|
:state "TX"})
|
|
|
|
(meditations
|
|
"Destructuring is an arbiter: it breaks up arguments"
|
|
(= ":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]] (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")]
|
|
(clojure.string/join " aka " (conj aliases (str first-name " " last-name))))
|
|
)
|
|
|
|
"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]
|
|
(str street-address ", " city ", " state)))
|
|
|
|
"Or more succinctly"
|
|
(= "123 Test Lane, Testerville, TX"
|
|
(let [{:keys [street-address city state]} test-address]
|
|
(str street-address ", " city ", " state)))
|
|
|
|
"All together now!"
|
|
(= "Test Testerson, 123 Test Lane, Testerville, TX"
|
|
((fn [[first-name last-name] {:keys [street-address city state]}]
|
|
(str first-name " " last-name ", " street-address ", " city ", " state)) ["Test" "Testerson"] test-address)))
|