带部分的嵌套函数参数

Question

我有这个函数定义，但我想知道是否可以仅使用def和高阶函数来做到这一点（我希望结果以相同的顺序使用args）

(defn f1
  [a b c]
  (f2
   (partial f3 a)
   b c))

f2和f3看起来像（保持相关参数的命名）：

(defn f2
  [f b c]
  (my-fn-using f b c))

(defn f3
  [a x c]
  (another-fn-using a x c))

Answer 1

我不确定100％知道您的要求，但这是我的回答。

将f1转换为HOF可能涉及修改它以使用[fgabc]参数，并使用f和g将其调用为my-fn-using和another-fn-using 。

(defn f1 [f g a b c]
  (f (partial g a) b c))

然后，您将其称为：

(f1 my-fn-using another-fn-using a b c)

可以应用为：

(my-fn-using (partial another-fn-using a) b c)

我不确定这是否是您要查找的原因是您提到了“嵌套函数参数”，但是我看不到它们在哪里。 调用前者时，缺少another-fn-using参数来自my-fn-using内部，后者直接获得其参数。

例如：

(defn my-fn-using [f b c]
  (let [x [:b b]]
    ;; do stuff using b and/or c
    (f x c)))

(defn another-fn-using [a x c]
  ;; do other stuff using a x c
  [a x c])

;; call f1 
(f1 my-fn-using another-fn-using 1 2 3)

;; or create a partially applied function that takes [a b c]
(def f (partial f1 my-fn-using another-fn-using))

(f 1 2 3)