Emacs Lisp的cl-loop应用实例

问题1

能同时被2、3、5整除的四位数中最小的和最大的分别是多少？

代码:

最小的

(cl-loop for i from 1000 to 9999
      until (= 0 (mod i (* 2 3 5)))
      finally return i)

最大的

(cl-loop for i from 9999 downto 1000
      until (= 0 (mod i (* 2 3 5)))
      finally return i)

答案分别是1020和9990

问题2

生成形如Figure 1, Figure 2, … 的序列？

代码:

(loop for i from 1 to 10 concat (format "Figure %d, " i))

缺点是必须手动删除最后的“, ”