11 lines
243 B
EmacsLisp
11 lines
243 B
EmacsLisp
|
(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)
|