gistfile1.clj

(defn delta-seq [xs]                                                            
  (map                                                                         
    (fn [i]                                                                    
      (let [x  (nth xs i)                                                       
            x* (nth xs (inc i))]                                               
        (- x* x)))                                                              
    (range (dec (count xs)))))