gistfile1.clj

;; 158. decurry [medium]
;; http://www.4clojure.com/problem/158

(fn decurry [f]
  (fn [& args]
    (reduce #(%1 %2)
            f
            args)))

;; 43. reverse interleave [medium]
;; http://www.4clojure.com/problem/solutions/43

(fn [s n] (map #(take-nth n %) (take n (iterate rest s))))

;; or

#(apply map list (partition %2 %))