使Clojure let语句更具功能性

在我的第一个Clojure项目中，除了最后的这一部分外，一切都很好：

(let [broken-signs    (->> (:symbols field)
                           (map make-sign)
                           (filter broken?))
      broken-count    (count broken-signs)
      unfixable-count (-> (filter (complement fixable?) broken-signs)
                          (count))]
  (println
    (if (> unfixable-count 0)
      -1
      (- broken-count unfixable-count))))

缩进看起来不起作用，因为我正在重用let块中的状态。我基本上是先计算破损标志的数量，然后再计算可固定标志的数量。如果任何符号不能固定，我将打印-1，否则将打印要固定的符号数量。

如果我两次映射/过滤，我将有重复的代码，但大多数情况下运行起来会更慢。尽管如此，有没有办法改进此代码？

编辑：这就是我所决定的

 (defn count-broken-yet-fixable []
   (let [broken (->> (:symbols field)
                     (map make-sign)
                     (filter broken?))
         unfixable (remove fixable? broken)]
     (when (empty? unfixable)
       (count broken))))

 (defn solve-task []
   (if-let [result (count-broken-yet-fixable)]
     result
     -1))

(println (solve-task))

确实没有必要进行减法运算，也不必在let块中进行计数。在错误的输入下输出-1也不是函数的工作，而只是任务的一部分。