lisp - Lisp 代码的缩进

Question

我已经写了一些 Lisp 代码，它可以工作，但我不确定如何正确地缩进。

基本上我有一个全局变量和三个函数:

(setf my-hand '((3 hearts)
                (5 clubs)
                (2 diamonds)
                (4 diamonds)
                (ace spades)))

(defun rank (card)
  (car card))

(defun suit (card)
  (cadr card))

(defun count-suit (suit hand)
  (length (remove-if-not #'(lambda (card) (equal suit (suit card))) hand)))

我对全局变量和函数 rank 和 suit 没问题，但是 count-suit 呢？我应该如何包裹它的 body 并缩进它？我可以想出几种方法，但无法决定哪一种看起来是正确的。

有什么提示吗？

是否有规范的方式来执行此操作？

Answer 1

请注意，缩进 和格式化 之间存在细微差别。

缩进 通常意味着水平移动一行的内容。通常我们已经知道线上和线上的内容。如果您要求典型的编辑器缩进，它只会调整行内容的水平位置。它不会跨行分发表达式。

格式化 是指将代码布局到一行或多行。 Lisp 为自动布局提供了一个 pretty-print 。但在编辑器中，完整布局并没有得到很好的支持，尤其是因为规则可能很复杂，而且处理注释和其他非 s 表达式代码内容有点困难。宏的布局基于简单的原则。像 LOOP 这样更复杂的宏的自动布局真的很困难。

你的问题实际上是关于格式化的。

(length (remove-if-not #'(lambda (card) (equal suit (suit card))) hand))

我可以识别函数调用吗？论点是什么？什么是语法？行长呢？压痕深度？

让我们看看函数调用:将它们放在更显眼的位置:

(length
 (remove-if-not
  #'(lambda (card)
      (equal
       suit
       (suit card)))
  hand))

上面看起来还不错。

也许我们想专注于参数并确保两个或多个参数在不同的行上:

(length (remove-if-not #'(lambda (card)
                           (equal suit
                                  (suit card)))
                       hand))

通常我们希望短参数列表在一行上，如果行不是太长的话:

(length (remove-if-not #'(lambda (card)
                           (equal suit (suit card)))
                       hand))

以上是我在这种情况下要写的内容。代码结构足够清晰，不会浪费太多篇幅。

格式化代码意味着应用大量局部和全局约束/规则。

如果我们看一下表达式，我们也会想以不同的方式编写它，因为它会触发很多通常不喜欢的事情:

• 它计数，但它不使用计数功能
• 它做了不必要的工作
• 它创建一个 lambda 表达式来提取值并针对项目对其进行测试:提取和测试

所以:

(count suit hand :key #'suit :test #'eql)

或者只是(eql 是默认值):

(count suit hand :key #'suit)

回到格式化。我们可以做一些实验，看看 Lisp 是如何做到的，因为它有一个内置的代码格式化程序(这里是 Clozure Common Lisp):

? (defun test ()
    (dolist (*print-right-margin* '(80 60 40 30))
      (format t "~%Margin: ~a" *print-right-margin*)
      (pprint '(length (remove-if-not #'(lambda (card) (equal suit (suit card))) hand)))))
TEST
? (test)

Margin: 80
(LENGTH (REMOVE-IF-NOT #'(LAMBDA (CARD) (EQUAL SUIT (SUIT CARD))) HAND))
Margin: 60
(LENGTH (REMOVE-IF-NOT
          #'(LAMBDA (CARD) (EQUAL SUIT (SUIT CARD)))
          HAND))
Margin: 40
(LENGTH
 (REMOVE-IF-NOT
  #'(LAMBDA
     (CARD)
     (EQUAL SUIT (SUIT CARD)))
  HAND))
Margin: 30
(LENGTH
 (REMOVE-IF-NOT
  #'(LAMBDA
     (CARD)
     (EQUAL
      SUIT
      (SUIT CARD)))
  HAND))

尽管在许多情况下手动格式化的代码可能看起来更好，但熟悉自动格式化(又名 pretty-print 或“研磨”)并能够处理它还是很有用的。