solution to http://codegolf.stackexchange.com/questions/7131/help-alice-in-giving-candies

alice.core

(ns alice.core)

(defn candy-delta [ivec]
  (map first
    (reduce (fn [pr c]
              (let [[ps pv] (last pr)]
                (conj pr
                      (cond (empty? pr) [1 c]
                            (= pv c)  [ps pv]
                            (< pv c)  [(inc ps) c]
                            (> pv c)  [(dec ps) c]))))
            [] ivec)))

(defn simple-min-candy [ivec]
  (let [dvec (candy-delta ivec)
        m (apply min dvec)]
    (cond (> 1 m) (map #(+ %1 (- 1 m)) dvec)
          (< 1 m) (map #(- %1 (inc m)) dvec)
          :else dvec)))

(defn -main [& args]
  (let
    [line-count (read)
     v (map #(read) (range line-count))
     ]
    (println line-count)
    (println v)
    (println (apply + (simple-min-candy v)))))