From c1f179948c2e35c8f200fcb9f7b5a08008bb271a Mon Sep 17 00:00:00 2001 From: Kenneth Kostresevic Date: Thu, 16 Dec 2021 14:08:59 +0100 Subject: [PATCH 1/2] Solve sequence comprehensions --- src/koans/12_sequence_comprehensions.clj | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/src/koans/12_sequence_comprehensions.clj b/src/koans/12_sequence_comprehensions.clj index f131e1a..28e5522 100644 --- a/src/koans/12_sequence_comprehensions.clj +++ b/src/koans/12_sequence_comprehensions.clj @@ -3,7 +3,7 @@ (meditations "Sequence comprehensions can bind each element in turn to a symbol" - (= __ + (= '(0 1 2 3 4 5) (for [x (range 6)] x)) @@ -12,20 +12,20 @@ (map (fn [x] (* x x)) (range 6)) (for [x (range 6)] - __)) + (* x x))) "And also filtering" (= '(1 3 5 7 9) (filter odd? (range 10)) - (for [x __ :when (odd? x)] + (for [x (range 10) :when (odd? x)] x)) "Combinations of these transformations is trivial" (= '(1 9 25 49 81) (map (fn [x] (* x x)) (filter odd? (range 10))) - (for [x (range 10) :when __] - __)) + (for [x (range 10) :when (odd? x)] + (* x x))) "More complex transformations simply take multiple binding forms" (= [[:top :left] [:top :middle] [:top :right] @@ -33,4 +33,4 @@ [:bottom :left] [:bottom :middle] [:bottom :right]] (for [row [:top :middle :bottom] column [:left :middle :right]] - __))) + (list row column)))) From 1c14aa03063bcbc85940ac4c3fc103682b235c6f Mon Sep 17 00:00:00 2001 From: Kenneth Kostresevic Date: Thu, 16 Dec 2021 16:24:34 +0100 Subject: [PATCH 2/2] Use explicit list --- src/koans/12_sequence_comprehensions.clj | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/src/koans/12_sequence_comprehensions.clj b/src/koans/12_sequence_comprehensions.clj index 28e5522..45ae69f 100644 --- a/src/koans/12_sequence_comprehensions.clj +++ b/src/koans/12_sequence_comprehensions.clj @@ -32,5 +32,4 @@ [:middle :left] [:middle :middle] [:middle :right] [:bottom :left] [:bottom :middle] [:bottom :right]] (for [row [:top :middle :bottom] - column [:left :middle :right]] - (list row column)))) + column [:left :middle :right]] [row column])))