 ;; =>
 3
 
+;;;; ---------------------------------------------------------------------------
+;;;; nomis stuff
+
+(defn person--name-begins-with-j? [person]
+  (= (string/lower-case (first (:name person)))
+     "j"))
+
+(fact
+  (r/reduce + 0 ((comp (r/map (constantly 1))
+                       (r/filter person--name-begins-with-j?)
+                       (r/filter person--child?))
+                 village))
+  => 3)
+
 ;;;; ___________________________________________________________________________
 
 ;; Example 4 - making a collection how many children's names start with J?

(r/reduce + 0 (ex2-pipeline village))
;; =>
2

;;;; ___________________________________________________________________________


"Elapsed time: 223.55717 msecs"



;; WHat else can you do with fold?

;; A simple folder where both the reducer and combiner is +
