Question

我有以下内容：

(let ((count 0))
  (loop for i from 1 to 3 do
        (loop for j from 1 to 3 do
              (loop for k from 1 to 3 do
                    (setq count (+ 1 count))))
        finally (return count)))

这是最快，最低级的构造吗？

Answer 1

最好的方法是什么，取决于代码的目的，即为什么要嵌套三个循环。

在您的具体情况下，最快和最短的答案是(* 3 3 3)或27

更一般地说，可能的改进是将(setq count (+ 1 count))替换为(incf count)

您也可以将循环编写为

(loop for i from 1 to 3 summing
   (loop for j from 1 to 3 summing
      (loop for k from 1 to 3 summing 1)))

除了非循环答案外，所有版本的速度应该大致相同。

Answer 2

您可以在最里面的循环中使用count循环关键字，并在外循环中使用sum结果：

(loop :for i :below 3
      :sum (loop :for j :below 3
                 :sum (loop :for k :below 3
                            :count t)))

如何在嵌套for循环中累积计数？

2 个答案: