support gist

find-solution-seq-to-num.clj

(defn subset
  ([s]
     (subset [] s))
  ([tot r]
     (if (seq r)
       (lazy-cat
        (subset (conj tot (first r)) (next r))
        (subset tot (next r)))
       [tot])))

(defn check-seq [num s]
  (cond
   (and
    (seq s)
    (= (apply + s) num)) s
   :else false))

(defn find-solutions [num s]
  (let [solutions
        (map #(check-seq num %)
             (subset s))]
    (filter boolean solutions)))