https://www.hackerrank.com/challenges/grading

solution.clj

#!/usr/bin/env boot

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

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

(defn- round-grade [grade]
  (let [r (mod grade 5)]
    (if (>= r 3)
      (+ grade (- 5 r))
      grade)))

(defn- final-grade [grade]
  (if (< grade 38)
    grade
    (round-grade grade)))

(defn -main [& args]
  (let [total (str->int (read-line))
        grades (map str->int (repeatedly total read-line))]
    (doseq [fg (map final-grade grades)]
      (println fg))))