| ;; 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)) |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment