diff --git a/src/koans/destructuring.clj b/src/koans/destructuring.clj index b5a7957..9516305 100644 --- a/src/koans/destructuring.clj +++ b/src/koans/destructuring.clj @@ -4,8 +4,21 @@ [:foo :bar])) "Whether in function definitions" - (= "First comes love, then comes marriage, then comes Clojure with the baby carriage" + (= (str "First comes love, " + "then comes marriage, " + "then comes Clojure with the baby carriage") ((fn [[a b c]] __) ["love" "marriage" "Clojure"])) + "Or in let expressions" + (= "Rich Hickey aka The Clojurer aka Go Time aka Macro Killah" + (let [[first-name last-name & aliases] + (list "Rich" "Hickey" "The Clojurer" "Go Time" "Macro Killah")] + __)) + + "You can regain the full argument if you like arguing" + (= {:original-parts ["Steven" "Hawking"] :named-parts {:first "Steven" :last "Hawking"}} + (let [[first-name last-name :as full-name] ["Steven" "Hawking"]] + __)) + ) diff --git a/src/path_to_answer_sheet.clj b/src/path_to_answer_sheet.clj index d7e49f2..6bdb9dd 100644 --- a/src/path_to_answer_sheet.clj +++ b/src/path_to_answer_sheet.clj @@ -1,6 +1,6 @@ (ns path-to-answer-sheet (:use [path-to-enlightenment :exclude (run)] - [clojure.string :only (join split)])) + [clojure.string :only (join split trim)])) (def answers {"equalities" {"__" [true @@ -97,7 +97,20 @@ (recur (dec n) (* acc n))))] "___" ['not]} "destructuring" {"__" ["\":bar:foo\"" - '(format "First comes %s, then comes %s, then comes %s with the baby carriage" a b c) ]} + '(format (str "First comes %s, " + "then comes %s, " + "then comes %s with the baby carriage") + a b c) + '(trim + (apply str + (interleave + (apply list + first-name + last-name + (interleave (repeat "aka") aliases)) + (repeat " ")))) + '{:original-parts full-name + :named-parts {:first first-name :last last-name}} ]} }) (defn replace-with [s k replacements]