Counting Change Combinations codewars

change.clj

(ns count-change)
 
(defn cart [colls]
  (if (empty? colls)
    '(())
    (for [x (first colls)
          more (cart (rest colls))]
      (cons x more))))
 
(defn noseq? [x]
 (number? (first x)))
 
;(defn compress [s]
;(filter noseq?
;          (rest (tree-seq (complement noseq?) seq s))))
(defn compress [s]
 (prn (pr-str "before: " s))
 (let [l (map #(cond 
                     (number? %) (list (list %))
                     (number? (first %)) (list %)
                     (number? (first (first %))) %
                     :else %) s)]
 (prn (pr-str "middle: " l))
 (do (prn (pr-str "after: " (apply concat l))) (apply concat l))
))

(defn selection [times coll] (cart (take times (repeat coll))))
 
(defn count-change
  [money coins]
  (cond 
  (> (count (filter (fn [c] (< c 0)) coins)) 0) 0
  (= 0 money) 1 
  (empty? coins) 0 
  (< money (apply min coins)) 0
  :else
  (time
  (let [coins (distinct (filter (fn [c] (<= c money)) coins))
        dd (prn (pr-str coins))
        n (quot money (apply min coins))       
        sets (time (doall (for [t (range 1 (inc n))] 
               (selection t coins))))
        set (time (doall (distinct (map sort (compress (apply conj (map list coins) sets))))))
        res (time (doall (map #(if (= money (apply + %)) 1 0) set)))
        ]
        (apply + res)
   ))))

test.clj

(ns count-change-test
  (:require [clojure.test :refer :all]
            [count-change :refer [count-change]]))

(deftest Testing...
  (testing "(count-change 1 [1,2,3]) ; => 1"
    (is (= (count-change 1 [1,2,3]) 1)))
  (testing "(count-change 4 [1,2]) ; => 3"
    (is (= (count-change 4 [1,2]) 3)))
  (testing "(count-change 10 [5,2,3]) ; => 4"
    (is (= (count-change 10 [5,2,3]) 4)))
  (testing "(count-change 11 [5,7]) ; => 0"
    (is (= (count-change 11 [5,7]) 0)))
  (testing "(count-change 2 [1,2,3]) ; => 2"
    (is (= (count-change 2 [1,2,3]) 2)))
  (testing "count-change 5 [7 1 2 9 10]) ; => 3"
    (is (= (count-change 5 [7 1 2 9 10]) 3)))
  (testing "count-change 18 [4 6 3 10]) ; => 7"
    (is (= (count-change 18 [4 6 3 10]) 7)))
  (testing "(count-change 1 []) ; => 0"
    (is (= (count-change 1 []) 0))))