Decurry – Rich 4Clojure Problem 158 – See: https://github.com/PEZ/rich4clojure

rich4clojure_medium_problem_158.clj

(ns rich4clojure.medium.problem-158
  (:require [hyperfiddle.rcf :refer [tests]]))

;; = Decurry =
;; By 4Clojure user: amcnamara
;; Difficulty: Medium
;; Tags: [partial-functions]
;; 
;; Write a function that accepts a curried function of
;; unknown arity n. Return an equivalent function of n
;; arguments.
;; 
;; You may wish to read this .

(def __ :tests-will-fail)

(comment
  
  )

(tests
  10 := ((__ (fn [a]
             (fn [b]
               (fn [c]
                 (fn [d]
                   (+ a b c d))))))
       1 2 3 4)
  24 := ((__ (fn [a]
             (fn [b]
               (fn [c]
                 (fn [d]
                   (* a b c d))))))
       1 2 3 4)
  25 := ((__ (fn [a]
             (fn [b]
               (* a b))))
       5 5))

;; To participate, fork:
;; https://github.com/PEZ/rich4clojure

;; Post your solution below, please!

(def __ "take curried fn fx of n args; make equiv fn fx args 1..n"
  (fn [fx]
    (fn [& args] ; acc in fx the reduce of n args 
      (reduce #(%1 %2) fx args))))