RosettaCodeData/Task/Loops-Break/Common-Lisp/loops-break-2.lisp
2020-02-17 23:21:07 -08:00

3 lines
232 B
Common Lisp

(do ((a (random 20) (random 20))) ; Initialize to rand and set new rand on every loop
((= a 10) (write a)) ; Break condition and last step
(format t "~a~3T~a~%" a (random 20))) ; On every loop print formated `a' and rand `b'