We made a boo boo

booboo.clj

(ns sytac-dojo.core
  (:require [clojure.java.io :as io]
            [clojure.string :as string]
            [clojure.math.combinatorics :as combo]))

(def volume 150)

(defn read-input! []
  (as-> "input.txt" $
    (io/resource $)
    (slurp $)
    (string/split $ #"\n")
    (map #(Integer/parseInt %) $)))

(read-input!)

(defn power-set [xs]
  (reduce (fn [acc x]
            (->> acc
                 (map #(concat (list x) %))
                 (concat x)))
          [[]]
          xs))

(let [input (read-input!)]
  (count
    (sort-by
      count
      (filter #(= volume
                  (reduce + %))
              (combo/subsets input)))))

(take 200 (combo/subsets (read-input!)))