https://www.hackerrank.com/challenges/angry-professor

angryprof.clj

(require '[clojure.string :as string])

(defn- str->int [s]
  (Integer/parseInt s))

(defn- split-spaces [s]
  (string/split s #"\s+"))

(defn- read-test-case []
  (let [[students threshold] (split-spaces (read-line))
        arrivals  (split-spaces (read-line))]
    {:students (str->int students)
     :threshold (str->int threshold)
     :arrivals (map str->int arrivals)}))

(defn- students-at-start [test-case]
  (count (filter #(<= % 0) (:arrivals test-case))))

(defn- class-canceled? [test-case]
  (< (students-at-start test-case) (:threshold test-case)))

(defn -main [& args]
  (let [tc-count (str->int (read-line))
        test-cases (repeatedly tc-count read-test-case)]
    (doseq [test-case test-cases]
      (println (if (class-canceled? test-case) "YES" "NO")))))