rendezvous with cassidoo challenge: 23-09-11

separate_and_sort.clj

(ns separate-and-sort
  (:require [clojure.test :refer [deftest is]]))

(defn separate-and-sort [nums]
  (let [nums (sort (remove zero? nums))]
    (reduce (fn [[evens odds] n]
              (if (even? n)
                [(conj evens n) odds]
                [evens (conj odds n)]))
            [[] []]
            nums)))

(deftest separate-and-sort-test
  (is (= [[2 4 8] [1 3 5 7 9]]
         (separate-and-sort [4 3 2 1 5 7 8 9])))
  (is (= [[] [1 1 1 1]]
         (separate-and-sort [1 1 1 1]))))