ariarule-4clojure-solution58.clj

;; ariarule's solution to Function Composition
;; https://4clojure.com/problem/58

(fn new-comp [& fs] 
    (letfn [(restdo [f margs]
      (if (= '() f)
             (first margs)
             (restdo (rest f) [(apply (first f) margs)])))
      (firstdo [& margs]
            (restdo (reverse fs) margs))]
    firstdo))