LISP - 循環
可能有一種情況，當需要執行代碼塊多次。循環語句可以讓我們執行一個語句或語句組多次，下面是在大多數編程語言中的循環語句的一般形式爲：
LISP提供的結構來處理循環要求以下類型。點擊以下鏈接，查看其詳細信息。
Construct
描述
loop
循環loop結構是迭代通過LISP提供的最簡單的形式。在其最簡單的形式，它可以重複執行某些語句(次)，直到找到一個return語句。
loop for
loop結構可以實現一個for循環迭代一樣作爲最常見於其他語言。
do
do 結構也可用於使用LISP進行迭代。它提供了迭代的一種結構形式。
dotimes
dotimes構造允許循環一段固定的迭代次數。
dolist
dolist來構造允許迭代通過列表的每個元素。
循環loop結構
循環loop結構是迭代通過LISP提供的最簡單的形式。在其最簡單的形式，它可以重複執行某些語句(次)，直到找到一個return語句。
它的語法如下：
(loop (s-expressions))
例子
創建一個名爲main.lisp一個新的源代碼文件，並在其中輸入如下代碼：
(setq a 10) (loop (setq a (+ a 1)) (write a) (terpri) (when (> a 17) (return a)))
當執行的代碼，它返回以下結果：
11 12 13 14 15 16 17 18
請注意，沒有return語句，循環宏會產生一個無限循環。
循環的構造
loop結構可以實現一個for循環迭代一樣作爲最常見於其他語言。
它可以
設置爲迭代變量
指定表達式（s）表示，將有條件終止迭代
對於執行某些任務在每次迭代中指定表達式的結果，
做一些任務而退出循環之前指定表達式（s）和表達式
在for循環的結構如下幾種語法：
(loop for loop-variable in <a list> do (action)) (loop for loop-variable from value1 to value2 do (action))
示例1
創建一個名爲main.lisp一個新的源代碼文件，並在其中輸入如下代碼：
(loop for x in '(tom dick harry)
do (format t " ~s" x)
)
當單擊Execute按鈕，或按下Ctrl+ E，LISP立即執行它，返回的結果是：
TOM DICK HARRY
示例2
創建一個名爲main.lisp一個新的源代碼文件，並在其中輸入如下代碼：
(loop for a from 10 to 20 do (print a) )
當單擊Execute按鈕，或按下Ctrl+ E，LISP立即執行它，返回的結果是：
10 11 12 13 14 15 16 17 18 19 20
示例3
創建一個名爲main.lisp一個新的源代碼文件，並在其中輸入如下代碼：
(loop for x from 1 to 20 if(evenp x) do (print x) )
當單擊Execute按鈕，或按下Ctrl+ E，LISP立即執行它，返回的結果是：
2 4 6 8 10 12 14 16 18 20
do構造
do結構也可用於使用LISP進行迭代。它提供了迭代的一種結構形式。
do語句的語法：
(do (variable1 value1 updated-value1) (variable2 value2 updated-value2) (variable3 value3 updated-value3) ... (test return-value) (s-expressions))
每個變量的初始值的計算和結合到各自的變量。每個子句中更新的值對應於一個可選的更新語句，指定變量的值將在每次迭代更新。
每次迭代後，將測試結果進行評估計算，並且如果它返回一個nil 或 true，則返回值被求值並返回。
最後一個S-表達式（s）是可選的。如果有，它們每一次迭代後執行，直到測試返回true值。
示例
創建一個名爲main.lisp一個新的源代碼文件，並在其中輸入如下代碼：
(do ((x 0 (+ 2 x)) (y 20 ( - y 2))) ((= x y)(- x y)) (format t "~% x = ~d y = ~d" x y))
當單擊Execute按鈕，或按下Ctrl+ E，LISP立即執行它，返回的結果是：
x = 0 y = 20 x = 2 y = 18 x = 4 y = 16 x = 6 y = 14 x = 8 y = 12
dotimes 構造
dotimes構造允許循環一段固定的迭代次數。
實例，
創建一個名爲main.lisp一個新的源代碼文件，並在其中輸入如下代碼：
(dotimes (n 11) (print n) (prin1 (* n n)))
當單擊Execute按鈕，或按下Ctrl+ E，LISP立即執行它，返回的結果是：
0 0 1 1 2 4 3 9 4 16 5 25 6 36 7 49 8 64 9 81 10 100
dolist 構造
dolist來構造允許迭代通過列表的每個元素。
實例,
創建一個名爲main.lisp一個新的源代碼文件，並在其中輸入如下代碼：
(dolist (n '(1 2 3 4 5 6 7 8 9))
(format t "~% Number: ~d Square: ~d" n (* n n)))
當單擊Execute按鈕，或按下Ctrl+ E，LISP立即執行它，返回的結果是：
Number: 1 Square: 1 Number: 2 Square: 4 Number: 3 Square: 9 Number: 4 Square: 16 Number: 5 Square: 25 Number: 6 Square: 36 Number: 7 Square: 49 Number: 8 Square: 64 Number: 9 Square: 81
退出塊
塊返回，從允許從正常情況下的任何錯誤的任何嵌套塊退出。
塊功能允許創建一個包含零個或多個語句組成的機構命名塊。語法是：
(block block-name( ... ... ))
返回 - 從函數接受一個塊名稱和可選（默認爲零）的返回值。
下面的例子演示了這一點：
示例
創建一個名爲main.lisp一個新的源代碼文件，並在其中輸入如下代碼：
(defun demo-function (flag) (print 'entering-outer-block)
(block outer-block
(print 'entering-inner-block) (print (block inner-block (if flag (return-from outer-block 3) (return-from inner-block 5)) (print 'This-wil--not-be-printed)))
(print 'left-inner-block) (print 'leaving-outer-block)
t))
(demo-function t)
(terpri)
(demo-function nil)
當單擊Execute按鈕，或按下Ctrl+ E，LISP立即執行它，返回的結果是：
ENTERING-OUTER-BLOCK
ENTERING-INNER-BLOCK
ENTERING-OUTER-BLOCK
ENTERING-INNER-BLOCK 5 LEFT-INNER-BLOCK
LEAVING-OUTER-BLOCK