common-lisp 并行迭代
示例
FOR允许使用多个子句LOOP。这些子句中的第一个完成时，循环结束：
(loop for a in '(1 2 3 4 5)
for b in '(a b c)
collect (list a b))
;; Evaluates to: ((1 a) (2 b) (3 c))可以组合其他确定循环是否应该继续的子句：
(loop for a in '(1 2 3 4 5 6 7)
while (< a 4)
collect a)
;; Evaluates to: (1 2 3)
(loop for a in '(1 2 3 4 5 6 7)
while (< a 4)
repeat 1
collect a)
;; Evaluates to: (1)确定哪个列表更长，并在知道答案后立即中断迭代：
(defun longerp (list-1 list-2)
(loop for cdr1 on list-1
for cdr2 on list-2
if (null cdr1) return nil
else if (null cdr2) return t
finally (return nil)))为列表中的元素编号：
(loop for item in '(a b c d e f g)
for x from 1
collect (cons x item))
;; Returns ((1 . a) (2 . b) (3 . c) (4 . d) (5 . e) (6 . f) (7 . g))确保列表中的所有数字均为偶数，但仅适用于前100个项目：
(assert
(loop for number in list
repeat 100
always (evenp number)))
热门推荐
10 晚来的生日祝福语简短
11 上级生日祝福语 简短独特
12 紫玫瑰生日祝福语简短
13 早上祝福语简短句子
14 谢谢学校老师祝福语简短
15 广场周年庆祝福语 简短
16 冬日问候祝福语大全简短
17 中考祝福语 简短 签状
18 女儿生日祝福语英语简短