(defn test-abc
  [{:keys [a b c]}]
  (cond a (not (or b c))
        b (not c)
        c true))

(defn test-abc2
  [m]
  (cond (m :a) (not (or (m :b) (m :c)))
        (m :b) (not (m :c))
        (m :c) true))

(defn check-my-map [data]
  (let [result (->> #{:foo :bar :baz}
                    (map data)
                    (map some?)
                    (filter true?))]
    (= result '(true))))

(-> {:foo 1 :bar nil}
    (group-by #{:foo :bar :baz})
    (dissoc nil)
    count
    (= 1))

(defn check-my-map [{:keys [a b c]}]
  (cond
    a (and (not b) (not c))
    b (and (not a) (not c))
    c (and (not a) (not b))))

(reduce (fn [met k]
          (if (get {:a 1 :b 2} k)
            (if met
              (reduced false)
              true)
            met))
        false
        [:a :b :c])