10 lines
243 B
Common Lisp
10 lines
243 B
Common Lisp
(defun wait_10 ()
|
|
(catch 'loop-break
|
|
(while 't
|
|
(let ((math (random 19)))
|
|
(if (= math 10)
|
|
(progn (message "Found value: %d" math)
|
|
(throw 'loop-break math))
|
|
(message "current number is: %d" math) ) ) ) ) )
|
|
|
|
(wait_10)
|