clojure meetup 2021-07-20

cleave.clj

(cleave 5 [#(* % 2) dec #(* % %)])
;; => [10 4 25]

(defn cleave [x fs]
 ((apply juxt fs) x))

(defn cleave2 [x fs]
  (map #(% x) fs))

(defn cleave3 [x fs]
  (reduce #(conj %1 (%2 x)) [] fs))

(defn cleave4 [x fs]
  (->> (iterate
        (fn [[result [f & fs]]] [(conj result (f x)) fs])
        [[] fs])
      (take (inc (count fs)))
      last
      first))
      
(defn cleave5 [x fs]  
  (loop [r [] 
         [f & rest] fs]
    (if (nil? f)
      r
      (recur (conj r (f x)) rest)))) 

(defn foo [x r [f & rest]]
 (if (nil? f)
   r
   #(foo x (conj r (f x)) rest)))

(defn cleave6 [x fs]
  (trampoline foo x [] fs))