https://www.hackerrank.com/challenges/apple-and-orange

solution.clj

#!/usr/bin/env boot

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

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

(defn- parse-line [line]
  (map str->int (string/split line #"\s+")))

(defn- positions [origin fruit]
  (map #(+ origin %) fruit))

(defn- fruit-count [s t fruit]
  (count
    (filter #(and (>= % s)
                  (<= % t))
            fruit)))

(defn run []
  (let [[s t] (parse-line (read-line))
        [apple-tree orange-tree] (parse-line (read-line))
        [total-apples total-oranges] (parse-line (read-line))
        apples (positions apple-tree (parse-line (read-line)))
        oranges (positions orange-tree (parse-line (read-line)))]
    (println (fruit-count s t apples))
    (println (fruit-count s t oranges))))

(run)