如何正确缩进 clojure/lisp？

Question

我想缩进下面的代码。 liper 会如何缩进这个？ 我特别困惑在哪里放置换行符。

(defn primes [n]
  (letfn [(sieve [table removal]
                 (assoc table removal false))
          (primebools [i table]
                       (cond 
                         (= i n) table 
                         (table i) (recur (inc i) 
                                          (reduce sieve 
                                                  table 
                                                  (range (* i i) n i))) 
                         :else (recur (inc i) 
                                      table)))]
    (let [prime? (primebools 2 (apply vector (repeat n true)))]
      (filter prime? (range 2 n)))))

Answer 1

(defn primes [n]
  (letfn [(sieve [table removal]
            (assoc table removal false))
          (primebools [i table]
            (cond 
              (= i n) table 
              (table i) (recur (inc i) 
                          (reduce sieve table 
                            (range (* i i) n i))) 
              :else (recur (inc i) table)))]
    (let [prime? (primebools 2 (apply vector (repeat n true)))]
      (filter prime? (range 2 n)))))

我就是这么做的。

Answer 2

除了 @dnolen 的回答之外，当有

1. 一个新函数（如前两行）
2. 时，我通常会放置一个新行来缩进函数的长或重要参数（如 cond 块），
3. 逻辑上保留每个行数不要超过 80 个字符，并将较长的想法分解为较小的块
4. ，最重要的是，保持一致！

然后只需对齐和缩进行，以便标识具有相同的代码深度。