LISP - 循環

可能有一種情況,當需要執行代碼塊多次。循環語句可以讓我們執行一個語句或語句組多次,下面是在大多數編程語言中的循環語句的一般形式爲:

Loop

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