katze.clj

(def combinations
  (for [x (range 1 98) y (range 1 98)
        :when (>= 98 (+ x y))]
    (let [z (- 100 x y)]
      {:x x :y y :z z})))

(defn winner? [{:keys [x y z]}]
  (== 100 (+ (* 15 x) (* 1 y) (* 0.25 z))))

(defn find-winner []
  (filter winner? combinations))