minutes.clj

  (defn epoch 
    "Returns (System/currentTimeMillis)/1000"
    [] 
    (int (/ (System/currentTimeMillis) 1000)))

  (defn epoch-min 
    "Returns the epoch-min, to any epoch input
    epoch min is the the last minute's epoch value
    1390086540 1390086600 1390086660"
    [epoch] 
    (- epoch (mod epoch 60)))

 (defn last-datapoints
    "Return a vector with n elements starting with epoch"
    [epoch n]
    (let [e (epoch-min epoch)]
      (vec (map #(- e (* % 60)) (range n)))))