clojure test

gistfile1.clj

(defn factors-sorted-by-product [start end]
   (map rest (let [r (reverse (range start end))]
        (reverse (sort-by first (for [x r y r :when (>= x y)]
                                    (list (* x y) x y)
                                )
                ))
         )
))

(defn get-diff-factors [vals]
  (loop [ar (seq vals) res (vector)]
    (if (empty? ar)
      res 
      (recur (next ar) (conj res (map - (second ar) (first ar)))))))