balkian/clojure-koans
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

attempt to make koans more inclusive

Browse Source
This commit is contained in:
Tom Marble 2015-06-14 21:06:04 -05:00
parent c4958a9263
commit 6d5b226307
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/koans/21_group_by.clj
View File

@ -19,20 +19,20 @@
"You can also group by a primary key" "You can also group by a primary key"
(= __ (= __
(group-by :id [{:id 1 :name "Bob"} (group-by :id [{:id 1 :name "Bob"}
{:id 2 :name "Mike"} {:id 2 :name "Jennifer"}
{:id 1 :last-name "Smith"} ])) {:id 1 :last-name "Smith"} ]))
"But be careful when you group by non-required key" "But be careful when you group by non-required key"
(= {"Bob" [{:name "Bob" :id 1}] (= {"Bob" [{:name "Bob" :id 1}]
"Mike" [{:name "Mike" :id 2}] "Jennifer" [{:name "Jennifer" :id 2}]
__ [{:last-name "Smith" :id 1}]} __ [{:last-name "Smith" :id 1}]}
(group-by :name [{:id 1 :name "Bob"} (group-by :name [{:id 1 :name "Bob"}
{:id 2 :name "Mike"} {:id 2 :name "Jennifer"}
{:id 1 :last-name "Smith"}])) {:id 1 :last-name "Smith"}]))
"The true power of group-by comes with custom functions" "The true power of group-by comes with custom functions"
(= __ (= __
(group-by #(if (:bad %) :naughty-list :nice-list) (group-by #(if (:bad %) :naughty-list :nice-list)
[{:name "Jimmy" :bad true} [{:name "Jimmy" :bad true}
{:name "Jack" :bad false} {:name "Anna" :bad false}
{:name "Joe" :bad true}]))) {:name "Joe" :bad true}])))