Question

(deftask test1 "first test task" [] (print "1") identity)
(deftask test2 "second test task" [] (print "2") identity)
(boot (comp (test1) (test2)))
=> 12nil
(boot (comp (fn [x] (print "1") identity) (fn [x] (print "2") identity)))
=> 21nil

如果我在任务上使用comp，则执行顺序是从左到右。如果我对匿名函数使用comp，则执行顺序是从右到左。这种不一致性如何合理？

Answer 1

造成这种差异的原因是，当您使用comp启动任务时，它们不是可以组成的裸逻辑，而是每个启动任务都返回一个稍后将调用的函数，该函数包含另一个函数被传递给它（就像环中间件一样）。

使用普通函数，它的工作原理如下：

(comp inc dec)

生成一个执行以下操作的函数：

(inc (dec n))

启动任务类似于环中间件。每个任务都是一个函数，它返回另一个函数，它将从管道中包装下一个处理程序。它的工作方式与此类似（不是字面意思，为了便于阅读而简化了它）：

(defn task1 []
  (fn [next-handler]
    (fn [fileset]
      (print 1) ;; do something in task1
      (next-handler fileset))) ;; and call wrapped handler

(defn task2 []
  (fn [next-handler]
    (fn [fileset]
      (print 2) ;; do something in task1
      (next-handler fileset)))) ;; and call wrapped handler

所以当你这样做时：

(comp (task1) (task2))

执行这样的组合任务就好像它是：

(fn [fileset1]
  (print 1)
  ((fn [fileset2]
     (print 2)
     (next-handler fileset2))
   fileset1))

因为(task2)生成的函数将被传递给(task1)生成的函数，该函数将从(task2)包装一个函数（并在打印1后调用它）。 / p>

您可以在its wiki中阅读有关启动任务解剖的更多信息。阅读ring middleware可能也很有用。

为什么clojure引导中任务的执行顺序会发生变化？

1 个答案: