9 lines
95 B
Common Lisp
9 lines
95 B
Common Lisp
; test while
|
|
|
|
(setq x 10)
|
|
(setq y 10)
|
|
(while (< x 100) (setq y (+ x y)) (setq x (+ x 1)))
|
|
x
|
|
y
|
|
|