gistfile1.clj

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

(defn parse-ints [line]
  (for [s (str/split line #" ")] (Integer/parseInt s)))

(defn read-service-data []
  (let [[n t] (parse-ints (read-line))]
    {:widths (parse-ints (read-line))
     :tests  (->> (repeatedly read-line) (take n) (map parse-ints))}))

(defn slice [coll [start end]]
  (drop start (take (inc end) widths))))

(defn find-mins [{:keys [widths tests]}]
  (for [t tests] (apply min (slice widths t))))

(doseq [m (find-mins (read-service-data))]
  (println m))