问题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

问题2

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

代码:

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

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