Running pace calculator

run.clj

(defn pace [i]
  (cond 
    ;; After 30K, walk 1K after 4K of running
    (and (> i 30) (= 0 (mod i 4))) 10
    ;; every 10K stop 3 minutes
    (and (> i 20) (= 0 (mod i 15))) 8.5
    :else 6.5
      )
  )

(defn run [times]
  (loop [lst (range times) 
         paces []]
    (if-not lst
      paces
      (let [[i & others] lst]
        (recur others (conj paces (pace i)))))))

(println (reduce + (run 75)))