有关Lisp语言中的Do循环,就像很多人说的一样,初看起来太奇怪了,不知道怎么理解。所以在这里做一个简单的介绍,看完大家可以发现其实Lisp中的do循环也是比较简单的。
先看看Lisp语言中对于do循环的说明:
(do (variable-definitions*)
(end-test-form result-form*)
statement*)
翻译成“中文”大概意思是这样的:
(do (变量定义)
(结束条件 返回值)
循环主体)
其中的“变量定义”又有一些格式,展开大概是这个样子的:
(do ((变量名 变量初值 (变量变化语句)))
(结束条件 返回值)
循环主体)
现在我们希望定义一个变量x,x的初值是1,每次循环x=x+1,当x>10时结束循环,在循环主体中通过format函数输出变量x,则它的Lisp代码是这个样子的:
(do ((x 1 (1+ x)))
((> x 10) nil)
(format t "in the loop~a ~%" x))
为了让各位程序员更好地理解以上Lisp代码,在这里列出对应的java代码:
int x=1;
while (x<=10)
{
System.out.println("in the loop "+x);
x=x+1;
}
注意这里没有使用java里的do while或者是do until循环,原因是java里的do while 和 do until循环都在执行循环主体后才进行判断,而Lisp中的do循环一开始就进行判断。
所以上面使用了java中的while循环,条件也变成了x<=10.
下面是Lisp中使用do循环的完整代码,定义了一个测试函数叫do-test,为了让输出更加清晰,在do循环前后分别加了一行输出。
(defun do-test ()
(format t "staring do loop~%")
(do ((x 1 (1+ x)))
((> x 10) nil)
(format t "in the loop~a ~%" x))
(format t "end of do loop~%"))