gistfile1.txt

(defn even-or-odd
  "Collects even and odd numbers"
  [numbers]
  (reduce (fn [new-list number]
            (if (even? number)
              (conj (:even new-list) number)
              (conj (:odd new-list) number)
              )
            )
          {:even [] :odd []}
          numbers
          )
  )