emacs lisp的cl

问题1

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

代码:

最小的

1
2
3

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

最大的

1
2
3

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

答案分别是1020和9990

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

代码:

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

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