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